THIS  DOCUMENT  IS  BEST 
QUALITY  AVAILABLE.  THE  COPY 
FURNISHED  TO  DTIC  CONTAINED 
A  SIGNIFICANT  NUMBER  OF 
PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


REPORT  DOCUMENTATION  PAGE 

Form  Approved 

OMB  No.  0704-0188 

Putrtc  mporttng  tourMn  la r  Ha*  coWaetian  of  Information  t  aotknottd  to  ovarogo  1  hota  par  rooponoo,  IneJudaig  tho  mo  far  rariavraig  matrucoono,  oaarcfang  *xmng  aau  oaurooo. 
gatharlng  and  mointointng  tha  data  noodod,  and  eomglrtng  and  ravimving  tho  codoetion  of  iadorm aban.  Sand  uawmanta  regarding  ffaa  burton  aatanata  or  arrr  o»ia  aopact  of  ta  ! 
c  abaction  of  Mormaban,  including  auggaationo  for  roducmg  doa  btadon,  to  Woofangton  Waadguonata  Someaa,  Drrectarata  for  Information  Oparotiora  and  daporto.  121S  Jofforoon 
David  Hignway,  Sum  1204,  Arlington.  VA  22202-4302,  and  to  tha  Offica  of  Managamant  and  Sudgat.  Papanrrorb  fUduedon  Prafact  1070401111.  Waafangtan,  DC  20603.  | 

1.  AGENCY  USE  ONLY  Uawv*  £ tank) 

2.  REPORT  DATE 

April  16,  1993 

3.  REPORT  TYPE  AND  OATES  COVERED 

4.  TITLE  AND  SUBTITLE 

LCPFCT— A  Flux-Corrected  Transport  Algorithm  for  Solving  Generalized  Continuity  Equations 

S.  FUNDMG  NUMBERS 

6.  AUTHORIS) 

J.  Boris,  A.  Landsberg,  E.  Oran,  and  J.  Gardner 

7.  PERFORMING  ORGANIZATION  NAME(S)  ANO  ADORESS(ES) 

Naval  Research  Laboratory 

Washington,  DC  20375-5320 

8.  PERFORMMQ  ORGANIZATION 
REPORT  NUMBER 

NRL/MR/6410— 93-7192 

9.  SPONSORING/MONITORING  AGENCY  NAME(S)  ANO  ADORESSIES) 

Defense  Advanced  Research  Projects  Agency 

3701  N.  Fairfax  Drive 

Arlington,  VA  22203-1714 

10.  SPONSORING/MON ITORING 
AGENCY  REPORT  NUMBER 

11.  SUPPLEMENTARY  NOTES 

12a.  DISTRIBUTION/AVAILABILITY  STATEMENT 

Approved  for  public  release;  distribution  unlimited. 

12b.  DISTRIBUTION  CODE 

13.  ABSTRACT  {Maximum  200  wontel 

Flux-Corrected  Transport  has  proven  to  be  an  accurate  and  easy  to  use  algorithm  to  solve  nonlinear,  time-dependent  continuity 
equations  of  the  type  which  occur  in  fluid  dynamics,  reactive,  multiphase,  and  elastic  plastic  flows,  plasms  dynamics,  and 
magnetohydrodynamics .  This  report  updates  and  supersedes  a  previous  report  entitled  "Flux-Corrected  Transport  Modules  for 

Solving  Generalized  Continuity  Equations.*  It  can  be  used  as  s  user  manual  for  the  subroutines  and  teat  programs  included  in  the 
appendices.  The  entire  LCPFCT  library  in  its  most  recent  form  is  presented  and  discussed  in  detail.  There  are,  in  addition, 
discussions  of  more  general  topics  such  as  the  application  of  physical  boundary  conditions,  physical  positivity  and  numerical  diffusion 
which  help  to  put  the  numerical  aspects  of  this  subroutine  library  in  context. 

14.  SUBJECT  TERMS 

LCPFCT  Multiphase  Plasma  dynamics 

Transport  Algorithm  Reactive  Continuity  equations 

Fluid  dynamics 

15.  NUMBER  OF  PAGES 

135 

16.  PRICE  CODE 

17.  SECURITY  CLASSIFICATION 

Of  REPORT 

18.  SECURITY  CLASSIFICATION 

OF  THIS  PAGE 

UNCLASSIFIED 

19.  SECURITY  CLASSIFICATION 

OF  ABSTRACT 

UNCLASSIFIED 

20.  LIMITATION  OF  ABSTRACT 

UL 

HSH  7640-01 -280-6500 


Standard  Farm  2t«  2-i#J 

Pr— cribad  by  ANSI  Std  230-10 
209-102 


TABLE  OF  CONTENTS 


1.  Introduction  . 1 

2.  Numerical  Background . 3 

2.1  Positivity  and  Accuracy . 3 

2.2  Principles  of  Flux-Corrected  Transport  . 7 

3.  The  LCPFCT  Algorithm . 13 

4.  Split  Step  Applications  of  Monotone  FCT  Algorithms  . 20 

4.1  One-Dimensional  Solutions  of  the  Coupled  Equations . 20 

4.2  Multidimensions  through  Timestep  Splitting . 21 

5.  How  To  U-e  LCPFCT  . 25 

5.1  LCPFCT  Variables  in  Common  . 25 

5.2  Subroutines  in  LCPFCT  . 28 

5.3  Typical  Calling  Sequences . 37 

5.4  Summary  of  the  Major  LCPFCT  Library  Routines . 40 

6.  Boundary  Conditions . 41 

6.1  Representation  of  Boundary  Conditions  in  LCPFCT  . 42 

6.2  Boundary  Conditions  for  Confined  Domains . 44 

6.3  Continuitive  Boundary  Conditions  for  Unconfined  Domains  . 50 

7.  Additional  Information . 56 

8.  Test  Problems . 60 

8.1  Constant  Velocity  Convection  -  LCPFCT  Test  #1 . 60 

8.2  Progressing  One  Dimensional  Gasdynamic  Shock  -  LCPFCT  Test  #2  .  .  64 

8.3  One-Dimensional  Bursting  Diaphragm  Problem  -  LCPFCT  Test  #3  ...  66 

8.4  Two-Dimensional  Muzzle  Flash  Problem  -  LCPFCT  Test  #4 . 69 

9.  Summary . 72 

Acknowledgements . 73 

References . 74 

Appendices 

A.  Listing  of  LCPFCT  Library  Subroutines  .  A1  -  A20 

B.  Listing  of  Convection  Test  and  Printed  Results . B1  -  B7 

C.  Listing  of  Progressing  Shock  Program  and  Printed  Results . Cl  -  C9 

D.  Listing  of  Bursting  Diaphragm  Program  and  Results  .  Dl-Dll 

E.  Listing  of  Two  Dimensional  FAST2D  Program  and  Results  .  .  .  .El  -  E8 


LCPFCT — A  FLUX-CORRECTED  TRANSPORT  ALGORITHM  FOR  SOLVING 
GENERALIZED  CONTINUITY  EQUATIONS 

1.  INTRODUCTION 

This  report  explains  and  documents  a  group  of  subroutines  for  solving  generalized  conti¬ 
nuity  equations  of  the  form 


dp 

at 


1  d 

ra_1  dr 


(ra-V)  - 


i  d 
ra~1  dr 


(rt-1D1)  +  C2^2  +  fl3 


(1.1) 


These  subroutines,  collectively  referred  to  by  the  name  of  the  main  program,  LCPFCT, 
use  one  of  the  latest  one-dimensional  Flux-Corrected  Transport  (FCT)  algorithms  with 
fourth-order  phase  accuracy  and  minimum  residual  diffusion.  The  program  loops  vectorize 
to  take  full  advantage  of  vector  architectures  and  run  equally  well  on  scalar  and  superscalar 
computers.  The  use  of  internal  temporary  memory  is  quite  minimal,  limited  to  about 
thiry  short  one-dimensional  arrays,  and  is  arranged  to  maximize  readability  and  efficient 
program  execution.  A  rather  general  capability  to  handle  the  source  terms  in  Eq.  (1)  has 
been  provided  so  that  coupled  sets  of  multidimensional  nonlinear  continuity  equations, 
such  as  those  for  ideal  compressible  fluid  dynamics  and  reactive  flows,  can  be  solved  using 
the  routines  presented  here. 

LCPFCT  itself  can  treat  one-dimensional,  Cartesian,  cylindrical,  or  spherical  ,  and 
generalized  nozzle  coordinates.  A  flexible  set  of  boundary  conditions  for  each  equation  can 
be  selected  by  the  appropriate  choice  of  the  arguments  to  the  subroutine  calls.  In  addition 
to  inflow,  outflow,  and  reflecting  wall  conditions  in  several  coordinate  systems,  there  is  an 
option  for  periodic  boundary  conditions.  Using  this  version  of  LCPFCT,  multidimensional 
problems  may  be  solved  by  timestep-splitting  techniques.  The  computational  grid  can  be 
nonuniform  and,  in  addition,  can  move  during  the  course  of  a  timestep,  enabling  us  to  do 
Lagrangian  and  sliding  rezone  calculations.  The  programs  produce  a  positive,  conservative 
interpolation  when  the  fluid  velocity  is  zero  but  the  grid  moves,  which  is  an  important  test 
of  the  gridding. 

The  important  properties  of  FCT  are  that  it  is  a  high-order,  monotone,  conservative, 
positivity  preserving  algorithm.  This  means  that  the  algorithm  is  accurate  and  resolves 
steep  gradients,  allowing  grid  scale  numerical  resolution.  When  a  convected  quantity  such 
as  a  density  is  initially  positive,  it  remains  positive  and  no  new  maxima  or  minima  are 
introduced  due  to  numerical  errors  in  the  convection  process.  These  are  properties  that  are 
extremely  important  for  most  problems  of  practical  interest.  Table  1  presents  an  overview 
of  FCT  algorithm  developments.  More  background,  description,  and  historical  material 
may  be  found  in  Boris  (1971),  Boris  and  Book  (1976),  Book  and  Boris  (1981),  and  Oran 
and  Boris  (1987). 

The  material  presented  here  is  an  update  and  expansion  of  the  ETBFCT  programs 
described  by  Boris  (1976).  There  are  several  fundamental  differences  between  LCPFCT 
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Table  1.1  History  of  Development  of  FCT  Algorithms 


1971  Basic  nonlinear,  monotone  algorithm  (Boris) 

1976  Adaptation  of  FCT  to  general  finite-difference  algorithms  (Boris  and  Book) 
1976  Optimization  for  vector  and  parallel  processing  (Boris) 

1979  Fully  multidimensional  FCT  and  generalization  to  use  with 
arbitrary  high-  and  low-order  algorithms  (Zalesak) 

1985  Finite-Element  FCT  on  triangle-based  grids  (Lohner) 

1986  Implicit  FCT  (Patnaik) 

1991  Arbitrary  nonorthogonal  FCT  (Fyfe  and  Patnaik) 

1992  General  curved  boundary  FCT  (Landsberg  and  Boris) 


and  ETBFCT.  First,  in  LCPFCT,  variables  are  defined  on  cell  centers  instead  of  cell 
vertices,  a  relatively  small  change-  Second,  ETBFCT  was  written  as  a  single  subprogram, 
with  a  number  of  entries  whereas  LCPFCT  is  a  series  of  independent  subroutines  which 
communicate  through  named  common  blocks.  Finally,  additional  subroutines  have  been 
added  to  increase  the  flexibility  and  ease  of  using  LCPFCT. 

LCPFCT  is  written  in  Fortran.  Complete  program  listings  and  four  test  programs  are 
given  in  the  appendices.  Appendix  A  contains  a  complete  listing  of  the  series  of  subrou¬ 
tines  which  in  their  entirety  constitute  LCPFCT.  Appendix  B  contains  a  constant  velocity 
convection  test  problem,  LCPFCT  Test  #1,  with  the  driver  program  and  sample  results 
in  tabulated  form  that  can  be  used  to  check  the  code.  Appendix  C  contains  a  progressing 
shock  test  problem,  LCPFCT  Test  #2,  and  selected  outputs  for  comparison.  Appendix  C 
also  has  an  interface  program  called  GASDYN  which  combines  the  calls  to  source  generat¬ 
ing  routines,  velocity  and  boundary  condition  routines,  and  the  basic  continuity  equation 
module  LCPFCT.  GASDYN  couples  the  set  of  nonlinear  continuity  equations  to  solve 
gasdynamics  one  row  at  a  time  and  is  used  in  LCPFCT  Tests  #2,  #3,  and  #4.  Appendix 
D  contains  the  program  and  selected  outputs  for  the  one-dimensional  bursting  diaphragm 
problem,  LCPFCT  Test  #3.  This  example  illustrates  the  variable  grid  features  of  the 
LCPFCT  routines  by  switching  into  an  expanding  system  of  grid  coordinates  to  capture 
the  expected  similarity  solution.  Appendix  E  contains  a  two-dimensional  “muzzle  flash” 
test  problem,  LCPFCT  Test  #4,  with  sample  output  that  can  be  used  to  verify  the  users 
version  of  the  code.  This  fourth  test  illustrates  the  use  of  simple  outflow  boundary  condi¬ 
tions  and  shows  how  to  construct  programs  with  relatively  complex  geometries. 
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2.  NUMERICAL  BACKGROUND 


2.1  Positivity  and  Accuracy 

Good  resolution  of  steep  gradients  is  important  in  many  problems  we  need  to  solve.  It  is 
important  in  reactive  flows,  where  the  gradients  at  detonation  fronts,  flame  fronts,  and  at 
interfaces  in  multiphase  flows  must  be  accurately  represented.  Flame  speeds  depend  on 
steep  species  gradients,  as  do  the  local  energy  release  profiles.  It  is  important  in  simulations 
of  shocks,  particularly  when  they  collide  or  interact  with  other  steep  gradients.  High 
resolution  of  shear  flows  is  also  very  important  since  vortex  stretching  and  shear  steepening 
both  produce  steep  local  gradients  in  the  flow. 

Positivity  is  a  property  satisfied  by  the  continuity  equation.  When  the  density  p(r,  t ) 
in  Eq.  (1.1)  is  everywhere  positive  and  the  source  terms  are  zero,  it  is  a  mathematical 
consequence  of  the  continuity  equation  and  an  obvious  physical  property  of  the  flow  that 
the  density  can  never  become  negative  anywhere  -  regardless  of  the  velocity  field  specified. 
To  retain  this  mathematical  and  physical  property  in  numerical  convection  through  an 
Eulerian  grid  involves  a  certain  amount  of  numerical  diffusion.  This  numerical  diffusion 
arises  as  a  consequence  of  the  physical  requirements  that  the  profiles  being  convected 
remain  stable  while  remaining  positive.  Numerical  diffusion  is  an  inherent  problem  in 
Eulerian  convection,  and  unless  controlled,  it  can  invalidate  numerical  calculations  using 
linear  algorithms  unless  they  have  very  fine  computational  meshes. 

Figure  2.1  shows  how  numerical  diffusion  enters  the  first-order  upwind  algorithm  (see, 
for  example,  Oran  and  Boris,  1987).  Consider  a  discontinuity,  at  x  =  0  at  time  t  =  0,  that 
moves  at  a  constant  velocity  from  left  to  right.  The  velocity,  v,  the  timestep,  At,  and  the 
computational  cell  size,  Ax ,  are  chosen  such  that  vAt/Ax  =  1/3  in  the  figure.  This  means 
that  the  actual  physical  discontinuity  travels  one  third  of  a  cell  per  timestep.  The  solution 
obtained  using  the  linear  upwind  algorithm  (sometimes  called  donor-cell)  is  given  by  the 
solid  line.  The  “upwind”  finite-difference  formula  is  a  simple  linear  interpolation 

p?+1  -  p?-^(p?-pU)-  (2.D 

If  the  {pi}  are  positive  at  some  time  t  —  n  At  and 


vAt 

Ax 


<  1 


(2.2) 


in  each  cell,  the  new  density  values  {p"+1}  at  time  t  =  (n+  l)Af  are  also  positive.  The 
price  for  guaranteed  positivity  in  this  linear  algorithm  is  a  severe  nonphysical  spreading  of 
the  discontinuity  which  should  be  located  at  x  =  vt. 
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-AX  X  =  0  AX  2  AX  3  AX  4  AX 

Figure  2.1  The  results  of  converting  a  discontinuity  with  the  highly  diffusive,  first  order 
upwind  algorithm.  The  velocity  is  1/3  of  a  cell  per  timestep.  The  solid  lines  are  the  exact 
profile,  which  coincides  with  the  numerical  solution  at  t  —  0.  The  heavy  dashed  line  is  the 
numerical  solution.  Note  the  diffusive  precursor  moves  at  once  cell  per  timestep  regardless 
of  the  speed  of  the  flow. 

In  the  example  shown  in  Figure  2.1,  the  initial  discontinuity  erodes  rapidly.  This 
process  looks  like  physical  diffusion,  but  it  arises  here  from  numerical  errors.  The  numerical 
diffusion  occurs  because  material  that  has  just  entered  a  cell,  and  should  still  be  near  the 
left  boundary,  is  smeared  over  the  whole  cell  when  the  transported  fluid  elements  are 
interpolated  linearly  back  onto  the  Eulerian  grid.  Higher-order  approximations  to  the 
convective  derivatives  are  required  to  reduce  this  diffusion. 

Now  consider  a  three-point  explicit  finite-difference  formula  for  advancing  {p”}  one 
timestep  to  {p"+1}, 

ft"+‘  =  aip”_1+Mr  +  c.p"+1  (2.3) 

This  general  form  includes  the  first-order  upwind  algorithm  and  other  common  algorithms. 
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If  Ax  and  At  are  constants,  Eq.  (2.3)  can  be  rewritten  in  a  form  that  guarantees  conser¬ 
vation, 


p?+1  M to+1  +  Pi)  - «<-*<*"  +  rf-l)] 


(2.4) 


+  h+4w+1  -  />?)  -  -  or.,)] , 


where 

At  ,n 

f<+i  =  »i+i  ^  •  <2-5) 

The  {1^+1}  are  nondimensional  numerical  diffusion  coefficients  which  appear  as  a  conse¬ 
quence  of  considering  adjacent  grid  points.  Conservation  of  p  in  Eq.  (2.4)  also  constrains 
the  coefficients  di,  bi,  and  Cj  in  Eq.  (2.3)  by  the  condition 


Ot+i  +  b{  +  Ci- 1  =  1  . 


(2.6) 


Positivity  of  {p”+1}  for  all  possible  positive  profiles  {p”}  requires  that  {di},  {bi},  and  {c,} 
be  positive  for  all  i. 

Matching  corresponding  terms  in  Eqs.  (2.4)  and  (2.3)  gives 

*  =  **-*  +  |c*-i  ’ 

bi  =  1  -  -  vi+±  -  ,  (2.7) 

*  -  *'«+*  -  h+i  • 

If  the  {^4.^}  are  positive  and  large  enough,  they  ensure  that  the  {p”+1}  are  positive.  The 
positivity  conditions  derived  from  Eqs.  (2.7)  are 


Ml  £  ;  ■ 

|  >  *j+4  >  |  Ml . 


(2.S) 


for  all  i.  Thus  the  condition  in  Eq.  (2.8)  for  positivity  leads  directly  to  numerical  diffusion 
in  addition  to  the  desired  convection, 


p7+1  = 


p? + mm  -  of)  -  ■'-i  w  -  tf-i) 


+  convection , 


(2.9) 


where  Eq.  (2.8)  holds.  This  first-order  numerical  diffusion  rapidly  smears  a  sharp  discon¬ 
tinuity.  Godunov  has  shown  rather  generally  that  linear  second-order  algorithms  cannot 
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uphold  physical  positivity.  If  algorithms  are  used  with  <  ||et4^ ),  positivity  is  not 
necessarily  destroyed  but  can  no  longer  be  guaranteed.  In  practice,  the  positivity  condi¬ 
tions  are  almost  always  violated  by  strong  shocks  and  discontinuities  unless  the  inequal¬ 
ities  stated  in  Eq.  (2.8)  hold.  Nevertheless,  the  numerical  diffusion  implied  by  Eq.  (2.8) 
is  unacceptable.  The  diffusion  coefficient  {^+4}  cannot  be  zero,  however,  because  the 
explicit  three-point  formula,  Eq.  (2.4),  is  subject  to  a  numerical  stability  problem  if  it  is 
zero.  Finite-difference  methods  which  are  higher  than  first  order,  such  as  the  Lax-Wendroff 
(1964)  methods,  reduce  the  numerical  diffusion  but  sacrifice  assured  positivity.  This  aj  par¬ 
ent  dilemma  can  only  be  resolved  by  using  a  nonlinear  method  to  integrate  the  continuity 
equations. 

To  examine  the  problem  of  stability  and  positivity,  we  consider  a  stability  analysis. 
Consider  converting  test  functions  of  the  form 


P?  =  Poe''^  , 


where 


/j  =  k  Ax  = 


2n  Ax 


and  i  indicates  y/-i.  Substituting  this  solution  into  Eq.  (2.4)  gives 

Po+1  =  p2[l-2u(l-cosP)-i€sinP]  , 

where  we  assume  that 

Kh*}  =  v 
=  *• 

The  exact  theoretical  solution  to  this  linear  problem  is 


.nfli  _  „n„ 

Po  lexact  —  P0& 


n  —  \kvAt 
o' 


(2.10) 

(2.11) 

(2.12) 

(2.13) 

(2.14) 


Therefore  the  difference  between  the  exact  solution  and  Eq.  (2.12)  is  the  numerical  error 
generated  at  each  timestep. 

The  amplification  factor  was  defined  as 


and  an  algorithm  is  always  linearly  stable  if 


<  1 . 


(2.15) 


(2.16) 
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Rrom  Eq.  (2.12), 


\A\2  =  1  -  (4i/  -  2e2)(l  -  cos/?)  -f  (4z/2  -  e2)(l  -  cos/3)2  ,  (2.17) 

which  ought  to  be  less  than  unity  for  all  permissible  values  of  0  between  0  and  it.  In  general, 
v  >  |e2  ensures  stability  of  the  linear  convection  algorithm  for  any  Fourier  harmonic  of 
the  disturbance,  provided  that  At  is  chosen  so  that  |ej  <  1.  This  stability  condition  is  a 
factor  of  two  less  stringent  than  the  positivity  conditions  |e|  <  When  v  >  there  are 
combinations  of  e  and  0  where  | Aj2  >  1,  for  example  e  =  0  with  0  =  tt.  Thus  the  range  of 
acceptable  diffusion  coefficients  is  quite  closely  prescribed, 

\  >  *  >  |kl  >  \( !  ■  (2.18) 

Even  the  minimal  numerial  diffusion  required  for  linear  stability,  v  —  |e2,  may  be 
substantial  when  compared  to  the  physically  correct  diffusion  effects  such  as  thermal  con¬ 
duction,  molecular  diffusion,  or  viscosity.  Figure  2.2  shows  the  first  few  timesteps  from  the 
same  test  problem  as  in  Figure  2.1,  but  using  v  =  |e2  rather  than  v  —  required  for  pos¬ 
itivity.  The  profile  spreads  only  one  third  as  much  as  in  the  previous  case  where  positivity 
was  assured  linearly,  but  a  numerical  precursor  still  reaches  two  cells  beyond  the  correct 
discontinuity  location.  Furthermore,  the  overshoot  between  x  =  —Ax  and  x  =  0  in  Fig¬ 
ure  2.2  is  a  consequence  of  underdamping  the  solution.  The  loss  of  monotonicity  indicated 
by  the  overshoot  can  be  as  bad  as  violating  positivity.  A  new,  nonphysical  maximum  in 
p  has  been  introduced  into  the  solution.  When  the  convection  algorithm  is  stable  but  not 
positive,  the  numerical  diffusion  is  not  large  enough  to  mask  either  numerical  dispersion  or 
the  Gibbs  phenomenon  arising  near  sharp  gradients  so  the  solution  is  no  longer  necessarily 
monotone.  New  ripples,  that  is,  new  maxima  or  minima,  are  introduced  numerically. 

2.2  Principles  of  Flux-Corrected  Transport 

From  the  discussion  above  and  the  work  of  Godunov  (1959),  the  requirements  of  positivity 
and  accuracy  seem  to  be  mutually  exclusive.  Nonline ar  monotone  methods  were  invented 
to  circumvent  this  dilemma.  These  methods  use  the  stabilizing  v  —  je2  diffusion  where 
monotonicity  is  not  threatened,  and  increase  v  to  values  approaching  v  =  ||e|  when  re¬ 
quired  to  assure  that  the  solution  remains  monotone.  Different  criteria  are  imposed  in 
the  same  timestep  at  different  locations  on  the  computational  grid  according  to  the  local 
profiles  of  the  physical  solution.  The  dependence  of  the  local  smoothing  coefficients  v  on 
the  solution  profile  makes  the  overall  algorithm  nonlinear . 

To  prevent  negative  values  of  p  which  could  arise  from  dispersion  or  Gibbs  errors,  a 
minimum  amount  of  numerical  diffusion  must  be  added  to  assure  positivity  and  stability 
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Figure  2.2  Results  of  converting  a  discontinuity  using  an  algorithm  with  enough  diffusion 
to  maintain  stability,  but  not  enough  to  hide  the  effects  of  dispersion.  Note  the  growing 
nonphysical  overshoot  behind  the  actual  discontinuity  and  the  diffusive  numerical  precursor 
at  times  after  t  =  0  in  the  numerical  solution  (heavy  dashed  line). 

at  each  timestep.  We  write  this  minimal  diffusion  as 

*'*j(c+W)  (219) 

where  c  is  a  clipping  factor,  0  <  c  <  1  -  |e|,  that  controls  how  much  extra  diffusion  must 
be  added  to  ensure  positivity  over  that  required  for  stability,  e2/2.  In  the  vicinity  of  steep 
discontinuities,  c  «  1  —  |e|,  and  in  smooth  regions  away  from  local  maxima  and  minima, 
c  «  0. 

Over  the  last  20  years,  monotone  algorithms  have  been  shown  to  be  a  reliable,  robust 
way  to  calculate  convection.  The  first  specifically  monotone,  positivity-preserving  tech¬ 
nique  was  the  Flux-Corrected  Transport  (FCT)  algorithm  developed  at  NRL,  as  discussed, 


for  example,  in  Boris  (1971)  and  Boris  and  Book  (1973, 1976).  Other  early  monotone  meth¬ 
ods  employing  nonlinear  flux  limiters  were  proposed  by  van  Leer  (1973,  1979),  and  Harten 
(1974,  1983).  There  has  been  extensive  work  on  monotone  methods  during  the  last  ten 
years,  some  of  which  is  described  in  the  following  references,  Colella  and  Woodward  (1984) 
and  Woodward  and  Colella  (1984),  Baer  (1986),  and  Rood  (1987).  A  characteristic  of 
these  methods  generally  distinguishing  them  from  FCT  is  their  use  of  a  Riemann  solver 
to  determine  the  fluxes  of  mass  momentum  and  energy  for  gas  dynamics.  Their  use  of 
nonlinear  limiting  formulae  on  these  fluxes  to  calculate  the  clipping  factor  c  above,  is  very 
much  like  FCT.  Research  on  monotone  methods  related  to  the  FCT  approach  without  a 
Reiman  solver  has  also  continued  to  the  present,  for  example  by  Odstrcil  (1990),  Leonard 
and  Niknafs  (1990),  Nessyahu  and  Tadmor  (1990),  and  Lafon  and  Osher  (1992).  Zalesak 
(1979, 1981),  Lohner  (1987),  Patnaik,  et  al.  (1987),  DeVore  (1989, 1991),  Fyfe  and  Patnaik 
(1991),  and  Landsberg  and  Boris  (1992)  have  developed  various  generalizations  and  modi¬ 
fications  of  FCT  designed  to  improve  its  performance  in  multidimensions  and  to  represent 
complex  geometry. 

We  now  rewrite  the  explicit  three-point  approximation  to  the  continuity  equation 
given  in  Eq.  (2.3)  to  determine  provisional  values,  {p*},  from  the  previous  timestep  or 
“old”  values,  {p°J, 

Pi  =  +6ipf +  Cipf+1  .  (2.20) 

Again,  Eq.  (2.6)  must  be  satisfied  for  conservation  and  {oi},  {&i},  and  {c,}  must  all  be 
greater  than  or  equal  to  zero  to  assure  positivity. 

Equation  (2.20),  in  conservative  form,  again  becomes 

Pi  =  P°i~\  [«»+*  (P?+i  +  Pi)  ~  (Pi  +  P?-i)] 

+  [viH  {p°i+l  -  p°)  -  (p°  -  pU)]  (2.21) 

~  Pi  ~~  [/i-£  fi+$]  ' 

The  values  of  variables  at  interface  are  averages  (possibly  unequally  weighted)  of 
values  at  cells  i  +  1  and  i,  and  the  values  at  i  —  |  are  averages  of  values  at  cells  i  and 
i  —  1.  At  every  cell  i,  the  p,  differs  from  p °  as  a  result  of  the  inflow  and  outflow  fluxes  of 
p,  denoted  by  across  the  cell  boundaries.  The  fluxes  are  successively  added  and 

subtracted  along  the  array  of  densities  {pf }  so  that  the  overall  conservation  of  p  is  satisfied 
by  construction.  Summing  all  the  provisional  densities  gives  the  sum  of  the  old  densities. 
The  expressions  involving  ei±^  are  called  the  convective  fluxes. 

By  comparing  Eq.  (2.21)  and  (2.20),  we  obtain  the  conditions  relating  the  a,  b,  and  c’s 
to  the  e’s  and  u's,  essentially  as  in  Eq.  (2.7).  In  Eq.  (2.21),  the  {^+^}  are  dimensionless 
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diffusion  coefficients  included  to  ensure  positivity  of  the  provisional  values  {p,}.  The 
positivity  condition  for  the  provisional  {p,}  is  given  in  Eq.  (2.8). 

However,  after  Eq.  (2.20)  is  imposed,  two  of  the  three  coefficients  in  Eq.  (2.21)  are  still 
to  be  determined.  One  of  these  sets  of  coefficients  must  ensure  an  accurate  representation 
of  the  mass  flux  terms.  Thus 

At 

=  ’  {2'22) 

where,  {vi+^  }  is  the  fluid  velocity  approximated  at  the  cell  interfaces.  The  other  set  of 
coefficients,  },  are  chosen  to  maintain  positivity  and  stability. 

The  provisional  values  p,  must  be  strongly  diffused  to  ensure  positivity.  If  = 
!l€i+$!  Eq.  (2.8),  we  have  the  diffusive,  first-order  upwind  algorithm.  A  correction  in 
FCT  to  remove  this  strong  diffusion  involves  an  additional  antidiffusion  stage, 

Pi  =  Pi  ~  Pi +*  (P.+1  ~  Pi)  +  Pi-±  C Pi  -  Pi- 1)  ,  (2-23) 

in  the  algorithm  to  get  the  new  values  of  {p"}.  Here  {pt+^  }  are  positive  antidiffusion 
coefficients.  Antidiffusion  reduces  the  strong  diffusion  implied  by  Eq.  (2.8),  but  also  rein¬ 
troduces  the  possibility  of  negative  values  or  nonphysical  overshoots  in  the  “corrected” 
profile.  If  the  values  of  {pI+^ }  are  too  large,  the  new  solution  (p"}  will  be  unstable 
numerically. 

To  obtain  a  positivity-preserving  algorithm,  we  modify  the  antidiffusive  fluxes  in 
Eq.  (2.23)  by  a  process  that  we  call  flux  correction.  The  antidiffusive  fluxes, 

/£*  s  Mi+*  (Pi+1-Pi),  (2-24) 

appearing  in  Eq.  (2.23)  are  corrected  ( limited)  as  described  below  to  ensure  positivity  and 
stability. 

The  biggest  choice  of  the  antidiffusion  coefficients  {pl+j  }  that  still  guarantees  posi¬ 
tivity  linearly  is 

Mi+j  «  vi+i  -  j  h+^l  •  (2-25) 

However,  this  is  not  large  enough.  To  reduce  the  residual  diffusion  (v  -  p)  even  further, 
the  flux  correction  must  be  nonlinear,  depending  on  the  actual  values  of  the  density  profile 
{Pib 

The  idea  behind  the  nonlinear  flux-correction  formula  is  as  follows:  Suppose  the  den¬ 
sity  Pi  at  grid  point  i  reaches  zero  while  its  neighbors  are  positive.  Then  the  second 
derivative  is  locally  positive  and  any  antidiffusion  would  force  the  minimum  density  value 
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Pi  =  0  to  be  negative.  Because  this  cannot  be  allowed  on  physical  grounds,  the  antidiffusive 
fluxes  should  be  limited  so  minima  in  the  profile  are  made  no  deeper  by  the  antidiffusive 
stage  of  Eq.  (2.23).  Because  the  continuity  equation  is  linear,  we  could  equally  well  solve 
for  {— p”}.  Hence,  we  also  must  require  that  antidiffusion  not  make  the  maxima  in  the 
profile  any  larger.  These  two  conditions  form  the  basis  for  FCT  and  a  central  role  in  other 
monotone  methods.  The  antidiffusion  stage  should  not  generate  new  maxima  or  minima 
in  the  solution,  nor  accentuate  already  existing  extrema. 

This  qualitative  idea  of  a  nonlinear  filtering  can  be  quantified, 
are  given  by 

Pi  =  Pi~  fi+±  +  » 

where  the  corrected  fluxes  {ff+^}  satisfy 

/tc+£  =  S  •  max  {o,  min  [5  •  (pi+2  -  pi+i),  |/“^ |,  S  ■  (p,  -  Pi_i)] }  .  (2.27) 

Here  151  =  1  and  sign  S  =  sign  (p,+i  -  f>i). 

To  see  what  this  flux-correction  formula  does,  assume  that  (p,+i  —  pi)  is  greater  than 
zero.  Then  Eq.  (2.27)  gives  either 

ff+i  =  min  [(pi+2  -  Pi+i),  pT+.i(pi+i  -  Pi),  (pi  -  pi-i)]  or 

*  5  (2.28) 
=  0, 


The  new  values  {p"} 


(2.26) 


whichever  is  larger.  The  “raw”  antidiffusive  flux,  given  in  Eq.  (2.24),  always  tends 
to  decrease  p”  and  to  increase  p"+1.  The  flux- limiting  formula  ensures  that  the  corrected 
flux  cannot  push  p"  below  p”_i,  which  would  produce  a  new  minimum,  or  push  p™+l  above 
Pi+2>  which  would  produce  a  new  maximum.  Equation  (2.27)  is  constructed  to  take  care 
of  all  cases  of  sign  and  slope. 

The  formulation  of  an  FCT  transport  algorithm  therefore  consists  of  the  following 
four  sequential  stages: 

1.  Compute  the  transported  and  diffused  values  p*  from  Eq.  (2.21),  where  the  i/t+^  > 

to  satisfy  monotonicity.  Add  in  any  additional  source  terms,  for  example, 

-VP 

2.  Compute  the  raw  antidiffusive  fluxes  from  Eq.  (2.24). 

3.  Correct  or  limit  these  fluxes  using  Eq.  (2.27)  to  assure  monotonicity. 

4.  Perform  the  indicated  antidiffusive  correction  through  Eq.  (2.26). 
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Stages  3  and  4  are  the  new  components  introduced  by  FCT.  There  are  many  modifications 
of  this  prescription  that  accentuate  various  properties  of  the  solution.  Some  of  these  are 
summarized  in  Boris  and  Book  (1976),  by  Zalesak  (1979, 1981),  and  more  recently  in  Book, 
et  al.  (1991). 
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3.  THE  LCPFCT  ALGORITHM 


We  now  discuss  the  program  LCPFCT,  implemented  as  a  Fortran  subroutine  for  solving  the 
continuity  equation.  LCPFCT  is  used  in  combination  with  calls  to  a  number  of  auxiliary 
subroutines  for  defining  the  computational  grid,  the  velocity  dependent  factors,  the  various 
source  terms  in  the  equations  being  solved,  and  the  boundary  conditions.  This  is  an 
updated  version  of  the  program  ETBFCT  (Boris,  1976)  and  is  available  on  request.  The 
programs  are  short  and  complete  program  listings  also  appear  in  the  appendices. 

LCPFCT  implements  an  explicit  solution  of  the  general  one-dimensional  continuity 
equation,  Eq.  1.1,  which  is  reprinted  just  below, 


dp 

dt 


1  d 
r**-1  dr 


(r«"»  - 


i  d 

ra-i  Or 


(rQ~lDl)  +  C2 


dP2 

dr 


+  D3. 


(1.1) 


The  current  implementation  includes  provisions  for  a  spatially  variable  and  moving  grid. 
Additional  source  terms  are  included  by  means  of  the  terms  Pi,  P2,  and  P3.  Different 
one-dimensional  geometries  may  be  selected  through  variation  of  an  input  integer  a  where 
a  =  1  is  Cartesian  or  planar  geometry,  a  =  2  is  cylindrical  geometry,  and  a  =  3  is 
spherical  geometry.  By  choosing  a  =  4  and  writing  problem-specific  code  defining  cell 
interface  areas  and  volumes,  the  user  can  define  other  useful  coordinate  systems  such  as 
elliptical  coordinates  or  various  nozzle  geometries. 

Figure  3.1  shows  a  one-dimensional  geometry  in  which  the  fluid  is  constrained  to  move 
along  a  tube.  The  one  dimensionality  is  based  on  the  assumption  that  the  fluid  variables 
vary  very  little  in  the  direction  perpendicular  to  the  axis  of  the  tube.  The  variable  r 
measures  distance  along  the  tube.  The  velocity  1/  is  the  fluid  velocity  along  r.  The  points 
at  the  interfaces  between  cells  are  the  finite-difference  grid  points.  The  interface  positions 
at  the  beginning  of  a  numerical  timestep  are  denoted  by  {r"+^  },  where  i  —  0,  1,  . . . ,  N. 
At  the  end  of  a  timestep  At,  the  interfaces  are  at  {r”^  },  where 


At, 


(3.1) 


The  quantities  {v?+ ^  }  are  the  grid  velocities,  the  average  velocities  of  the  cell  interfaces 
during  the  interval  At.  Figure  3.1  also  indicates  the  basic  cell  volumes  {At},  and  the 
interface  areas,  {Ai+^}.  The  interface  areas  are  assumed  to  be  perpendicular  to  the  tube 

and  hence  to  the  velocities  {v/+^}-  The  change  in  the  total  amount  of  a  converted  quantity 
in  a  cell  is  the  algebraic  sum  of  the  fluxes  of  that  quantity  into  and  out  of  the  cell  through 
the  interfaces.  Both  the  cell  volumes  {Ai}  and  the  interface  areas  that  bound  the 

cells  have  to  be  calculated  consistently  using  new  and  old  grid  positions. 
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Figure  3.1  Geometry  and  layout  of  the  LCPFCT  finite  volume  grid.  Physical  variables  are 
specified  as  cell  averages  in  the  volumes  defined  by  the  locations  of  the  interfaces  between 
cells  and  the  variation  of  the  cross-sectional  area  with  distance  between  the  interfaces. 


The  positions  of  the  cell  centers  are  denoted  {r°,n}  and  may  be  related  to  the  cell 
interface  locations  by 

r°’n  =  |  (r£  +  r“:”4] ,  i  =  1,  2 .  N  .  (3.2) 

The  superscripts  o  or  n  indicates  the  old  and  new  grid  at  the  beginning  and  the  end  of 
the  timestep.  The  cell  centers  could  also  be  computed  as  some  weighted  average  of  the 
interface  locations.  These  locations,  r”  and  rf  are  not  needed  for  gasdynamics  but  may  be 
useful  for  calculating  diffusion  terms  added  to  Eq.  (1.1).  The  boundary  interface  positions, 
r|’n  and  ,  have  to  be  specified  by  the  user.  For  example,  they  might  be  the  location  of 
bounding  walls.  Then  by  programming  as  a  function  of  time  and  forcing  the  adjacent 
grid  points  to  move  correspondingly,  one  can  simulate  the  effect  of  a  piston  or  flexible 
container. 

To  calculate  convective  transport,  the  first  term  on  the  right  hand  side  of  Eq.  (1.1), 
we  need  the  flux  of  fluid  through  each  interface  as  it  moves  from  rf+^  to  rn+^  during  a 
timestep.  The  velocities  of  the  fluid  are  assumed  known  at  the  cell  centers  and  the  velocity 


of  tbe  fluid  at  the  interfaces  is  given  by 

vf+l  =  \(v{+i  +  v{)  ,  i  =  1,  2,  JV  -  1  .  (3.3) 

Again,  other  weighted  averages  are  possible  but  this  choice  works  well  for  all  three  geome¬ 
tries. 

Because  the  fluxes  out  of  one  cell  into  the  next  are  needed  on  the  interfaces,  we  define 


-”?+$’  *  =  1>  2,  ....  N-l. 


(3.4) 


The  boundary  interface  fluid  velocities  Av^  and  Av^+^  are  calculated  using  the  locations, 
r|’”  and  r^j."  ^ ,  and  the  two  endpoint  velocities  and  .  These  velocities  must  also  be 
specified  as  part  of  the  problem  definition  because  they  require  information  from  beyond 
the  computational  domain.  They  become  part  of  the  user-specified  boundary  conditions. 
Then 

>n  _ _o 

Am  =  -  -i— i  , 

*  *  A*  (3.5) 


AvN+i  -  4 


’  N+l ~  rN+$ 
At 


To  determine  the  flux  on  the  cell  boundaries,  we  also  need  the  density  at  the  cell 
interfaces.  This  is  taken  as 


Pi+i  =  g  bn-i  +  tfl’  *  -  1.  2,...,  N-l. 


(3-6) 


Weighted  averages  other  than  the  simple  one  expressed  in  Eq.  (3.6)  are  possible  for  this 
definition.  The  formulas 


Po  =  Sipi  +Vi, 

pN+i  =  Snpn  +Vn, 


(3.7  a) 


are  used  to  calculate  densities  at  fictitious  guard  cells,  here  indexed  0  and  JV+ 1,  which  are 
imagined  to  exist  beyond  the  computational  domain.  The  quantities  S\  and  Sn  axe  slope 
multiplicative  factors  used  to  specify  the  multiplier  of  the  value  just  inside  the  boundary 
to  be  used  in  the  guard  cells.  The  quantities  Vi  and  are  user  specified  additive  values 
to  augment  the  portion  of  the  guard  cell  variable  determined  from  the  cell  just  inside  the 
computational  domain.  The  use  of  uppercase  V  here  should  not  be  confused  with  the  use 
of  a  lowercase  v  elsewhere  to  denote  the  fluid  velocity.  The  letters  S  and  V  are  prefixed 
to  the  corresponding  variable  names  in  the  computer  programs  to  denote  the  boundary 
condition  terms  for  the  corresponding  guard  cell  variables. 
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For  specifying  periodic  boundary  conditions,  a  logical  argument  in  the  calling  sequence 
to  LCPFCT,  Pbc,  is  set  to  .true..  This  corresponds  to  the  guard  cell  definitions 


Po  =  PN  , 
PN+ 1  =  Pi  • 


(3-7  6) 


The  variable  Pbc  must  be  .false,  for  all  other  cases.  Both  S’s  and  V’s  are  ignored  when 
periodic  boundaries  are  selected.  Section  6  contains  a  more  complete  discussion  of  how  the 
boundary  conditions  are  implemented.  These  formulas  are  specified  in  this  way  because 
they  have  to  be  re-evaluated  several  times  using  the  updated  p  values  during  the  several 
stages  of  FCT.  Thus  pi  —p0  and  Pn+i—Pn  are  always  defined  at  the  first  and  last  interfaces 
through  all  stages  of  the  FCT  proceedure,  and  Eq.  (3.7)  gives 


4  -  (H*)p?  +  5Vi' 

*♦*  "  (5  +  5«")»  +  5v*- 

or  for  periodic  boundary  conditions 

P\  -  ^(Pi  +  Pn)* 

P°NH  ~  2^P°n  +  P°  ^ 


(3.8  a) 


(3.86) 


Using  these  definitions,  the  convective  transport  part  of  the  continuity  equation  is 
written  as 


-  At  p°i+±  Ai+±  Avi+i  +  At  ^  Av{_}  , 
i  —  1,  2,  ...,  N  . 


(3.9) 


The  left  side,  A\p* ,  has  not  yet  undergone  the  compression  or  expansion  that  changes  A?  to 
A”  .  The  source  terms  have  not  yet  been  incorporated  and  the  diffusion  and  antidiffusion 
portions  of  flux  correction  still  have  to  be  included. 

The  source  terms  in  Eq.  (1.1)  axe  added  into  Eq.  (3.9), 

A ipj  =  A Ip*  4-  ^At  Ai+^(Di)i+ 1  +  Dlti)  -  -  At  Ai_^(Diti  +  Di,<_i) 

+  i At  Ca,(Ai+i  4  A-i)  (fl2.(+i  -  Aw- i)  (310) 

+  At  A °Dzyi  ,  i  =  2,  ...,  N  -  1  . 
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The  end  values,  at  cells  i  —  il  and  i  =  iN,  are  computed  using  DkIl_^  and  DklN+^ ,  the 
first  and  last  interface  values  of  D,  which  must  be  specifically  specified  by  the  user,  in  place 
of  the  interface  average  at  the  boundaries.  Other  source  terms  can  be  added  easily  to  the 
formalism,  but  the  three  source  terms  in  Eq.  (1.1)  are  adequate  to  treat  most  important 
applications. 

The  diffusion  stage  of  this  FCT  algorithm  also  includes  the  cell  volume  change  when 
the  grid  is  moving, 


A ?Pi  =  KpT  +  Vi+tK+lipt+i  ~  P°i) 

-  p°i- 1)  >  *  -  *>  2>  — «  N  • 

The  quantities  {/?*}  make  up  the  transported-diffused  density  profile.  The  diffusion  coef¬ 
ficients  can  be  chosen  to  reduce  phase  errors  from  second  to  fourth  order.  The  interface- 
averaged  volumes  {Ai+^}  multiply  the  in  Eq.  (3.11)  and  are  defined  as 

Ai+J  =  |(A?+1  +  A"),  i  =  1,  2 .  N-  1.  (3.12) 

The  boundary  interface  volumes  are  chosen  as 


A*  =  A?  , 
A  n+$  —  A  N  ■ 


(3.13) 


The  convection,  additional  source  terms,  compression,  and  diffusion  have  been  broken 
into  the  successive  stages  shown  in  Eqs.  (3.9),  (3.10),  and  (3.11)  because  we  need  to 
compute  the  antidiffusive  fluxes  using  {pj}.  If  the  antidiffusive  flux  is  computed  using 
{pi},  that  is,  after  the  diffusion  has  been  added,  the  algorithm  has  residual  diffusion  both 
when  the  grid  is  Lagrangian,  v*  =  v3,  and  in  the  special  case  when  both  the  grid  and  the 
fluid  are  stationary.  Therefore  the  transported  but  not  diffused  values,  {pj}  are  used  to 
calculate  the  raw,  uncorrected  antidiffusive  fluxes, 

f!ih  =  l>i+iAi+ilpT+l  -pf]  ,  i  =  o,  1.  ....  N  .  (3.14) 

The  antidiffusion  is  designed  so  that  when  the  grid  is  Lagrangian  and  }  vanishes 

in  Eq.  (3.9), 

A =  KP°  -  (3-15) 

Substituting  Eq.  (3.9)  and  (3.10)  into  Eq.  (3.11)  in  the  Langrangian  case  with  no  sources 
gives 

Kfr  =  KpI  +  vi+iA, i+4(tf+1  -  p ?)  -  ■'HAH(p?  -  pU)  ,  (3.16) 
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because  p[  =  p°.  The  antidiffusion  procedure,  applied  to  Eq.  (3.16),  gives 

a ?P?  =  m  +  (vi+t  -  *+*)Ai+*  (tf+1  -  pf)  1? 

-  {Vi_±  -  tii-±)K-l(Pi  -  Pi-i)  ■ 

When  the  grid  is  Lagrangian,  the  desired  result  of  Eq.  (3.15)  can  be  achieved  as  long  as 

=  Pi+t  ■ 

Boris  and  Book  (1976)  explain  that  the  choices 

1  1  , 

=  6  +  3  ’ 

=  1  1  A 

Vi+l  <3  6  ’ 

reduce  the  relative  phase  errors  in  convection  on  a  locally  uniform  grid  to  fourth  order. 
By  defining 


(3.18) 


(3.19) 


•*+* 


_  a  A  At 


J_  JL 

A?  +  A?+1 


i  —  0,  1,  ....  N , 


(3.20) 


the  diffusion  and  antidiffusion  coefficients  are  automatically  equal  in  the  Lagrangian  case. 
Then  Eqs.  (3.19)  are  satisfied  for  the  portion  of  the  fluid  motion  that  convects  material 
through  the  moving  interfaces. 


As  in  Eq.  (2.27)  above,  the  signed  quantites  {5i+^}  can  be  defined  with  the  sign  of 
[pi+i  —  pi]  and  magnitude  unity.  Using  {/^}  from  Eq.  (3.14)  as  the  raw  antidiffusive 
fluxes  and  {pi}  from  Eq.  (3.11),  the  corrected  antidiffusive  flux  is 

fi+i  -  Si+i  maxjo,  min[|/“A|,  Si+±A*+1(pi+2  -  pi+i), 

3  i  (3.21) 

Si+iK(Pi-Pi-i)]},  i  =  1,2,...,JV-1. 

For  correcting  the  boundary  fluxes  /|  and  fN+i'  the  min[...,  ...,  ...]  term  in  Eq.  (3.21) 
contains  only  two  terms.  The  correction  coming  from  a  difference  reaching  beyond  the 
boundary  is  simply  dropped  from  the  calculation  except  for  periodic  boundaries  where  a 
periodic  application  of  the  differences  is  used.  The  result,  {p"}>  *s  computed  as  in 
Eq.  (2.26),  where  the  corrected  fluxes  {/f+^}  replace  The  final  density  at  the  new 

time  is 

p?  =  p.-jzlfUt-K-i)  ■  (3.22) 
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A  few  of  the  geometric  variables  used  above  have  yet  to  be  defined.  The  obvious  choice 
of  volume  elements,  at  the  beginning  and  end  of  the  timesteps,  in  Cartesian,  cylindrical, 
and  spherical  geometries  axe 

lri+^  ~  ri-$}’  Cartesian 

*[(r£  )2  ~  )21  cylindrical  (3.23) 

MCp3-(C*)3]  spherical. 

The  corresponding  interface  areas  are 

r  1  Cartesian 

cylindrical  (3.24) 

k  M^)2  +  r?+*rr+*  +  (r?+p2l  spherical  . 

The  interface  areas  are  time  and  space  centered.  Though  other  centered  choices  are  also 
possible,  these  particular  definitions  ensure  that  a  constant  density  p  remains  constant 
and  unchanged  when  the  fluid  is  at  rest  but  the  grid  is  rezoned  arbitrarily.  Depending 
on  how  the  LCPFCT  boundary  condition  factors  are  chosen,  a  subject  considered  in  both 
Sections  5  and  6,  the  time-variable  grid  can  even  move  fluid  into  and  out  of  the  system 
while  the  density  while  a  constant  density  remains  constant. 


4.  SPLIT  STEP  APPLICATION  OF  MONOTONE  FCT  ALGORITHMS 


Section  3  described  the  monotone  FCT  algorithm  for  integrating  a  single  continuity  equa¬ 
tion  using  LCPFCT.  We  now  extend  the  approach  to  solving  coupled  continuity  equations. 
Specifically,  we  want  to  solve  the  three  conservative  continuity  equations  of  gas  dynamics 
simultaneously, 


and 


dp 

dt 

dp\ 

~df 

dE 

dt 


-V  ■  pv, 

(4.1) 

-V  •  (pw)  -  VP 

(4.2) 

— V  •  Ev  —  V  •  (vP)  . 

(4.3) 

First,  we  consider  this  problem  in  one  spatial  dimension  using  a  two  stage  Runge-Kutta 
time  integration.  Then  split  step  procedures  are  introduced  to  combine  several  one¬ 
dimensional  calculations  to  create  a  multidimensional  monotone  calculation.  Section  5 
expands  the  discusssion  of  this  section  to  the  practical  aspects  of  using  the  LCPFCT  rou¬ 
tines  to  carry  out  the  general  procedures  described  here.  LCPFCT  can  be  used  to  solve 
systems  of  continuity  equations  for  many  applications  but  compressible  gas  dynamics  is 
the  most  widespread  use  and  serves  as  an  ideal  example  to  illustrate  the  various  necessary 
steps  and  techniques. 


4.1  One-Dimensional  Solution  of  Coupled  Continuity  Equations 

Solving  the  coupled  equations  (4. 1-4.3)  is  best  done  by  determining  the  timestep,  then 
integrating  from  the  old  time  t°  forward  a  half  timestep  to  t°  +  and  then  integrating 
from  t°  to  the  full  timestep  t°  4-  At.  The  results  of  the  half-step  integration  are  used  to 
evaluate  time-centered  spatial  derivatives  and  fluxes.  Assume  that  the  cell-averaged  values 
of  all  fluid  quantities  are  known  at  t°.  The  integration  procedure  for  one  timestep  is: 

1.  Integrate  the  equations  for  a  half  timestep  to  find  first-order  accurate  approximations 
to  the  fluid  variables  at  the  middle  of  the  timestep  (“time-centered”).  This  requires 
one  to: 

a.  Calculate  {vf}  and  {Pf}  using  the  old  values  of  {/>?},  {p°v°},  and  {E°}  known 
at  the  beginning  of  the  timestep. 

b.  Convect  {pf  }  a  half  timestep  to  {p^}.  (Here  the  superscript  |  is  used  to  indicate 
a  variable  at  the  new  half  timestep,  not  the  square  root). 

c.  Evaluate  -VP°  as  the  source  term  for  the  momentum  equation. 
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d.  Convect  {p° vf}  to  {pf  vf  }  using  -VP°. 

e.  Evaluate  —V  •  ( P°v° )  as  the  source  term  for  the  energy  equation. 

f.  Convect  {E°}  for  a  half  timstep  to  {E$}  using  -V  •  (P°v°). 

2.  Integrate  the  equations  for  a  whole  timestep  to  find  results  w’uch  are  second-order 
accurate  in  time  at  the  end  of  the  timestep  t°  +  At. 

a.  Calculate  {t^}  and  {Pt^}  using  the  half-step  values  {pf},  {pf  vf  },  and  {Ef}. 

b.  Convect  {pf}  for  the  full  timestep  At  to  {p\}- 

c.  Evaluate  —VP%  for  the  momentum  sources. 

d.  Convect  {pfv £}  to  {p|  v,1}  using  — VP^. 

e.  Evaluate  —V  •  for  the  energy  sources. 

f.  Convect  {2?f}  to  { E }}  using  —V  ■  P$v$. 

3.  Repeat  these  two  procedures  above  to  do  another  timestep  from  t1  to  t2. 

This  two-step,  second-order  time  integration  increases  the  accuracy  of  the  calculations 
significantly. 


Often  we  want  to  couple  Ne  chemical  species  equations  to  Eqs.  (4.1)  -  (4.3), 


On, 

1 W 


-V  •  n,v  , 


s 


1, 


N. 


(4.4) 


where  n,(r,  t)  is  the  number  density  of  species  s  and  the  subscript  s  is  used  here  to  avoid 
confusion  with  i,  generally  used  above  as  a  cell  or  interface  index.  In  general  you  do  not 
have  to  split  the  timestep  for  these  variables  provided  that  the  half-step  velocities  are  used 
in  advancing  {n?}  to  {nj}.  After  integrating  the  fluid  variables  for  the  half  and  whole 
timestep,  convect  these  species  the  full  timestep  using  the  centered  velocities  {v^  }.  If  the 
half-step  values  of  these  variables  affect  either  {t>^}  or  {P^},  the  half-step  integration  for 
the  {n»}  would  also  have  to  be  performed. 


4.2  Multidimensions  through  Timestep  Splitting 

One-dimensional  continuity  equation  solvers  such  as  LCPFCT  can  be  used  repetitively 
to  construct  a  multidimensional  program  by  timestep  splitting  in  the  different  coordinate 
directions.  This  approach  is  straightforward  when  an  orthogonal  grid  can  be  constructed 
with  physical  boundaries  along  segments  of  grid  lines.  Various  geometries,  such  as  (x  -  y), 
{ r-z ),  or  in  general  orthogonal  coordinates  ( r}-( ),  can  be  integrated  by  timestep  splitting. 
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The  approach  can  also  be  extended  to  three  dimensions  and  to  fully  general  geometries 
with  the  addition  of  special  boundary  algorithms  taking  into  account  the  variation  of  cell 
areas  and  volumes  when  a  general  curved  boundary  intersects  the  regular  orthogonal  grid. 

For  example,  the  four  equations  which  describe  ideal  two-dimensional  gas  dynamics 
in  Cartesian  (x  —  y)  geometry  are: 


II 

-  - 

dpvx 

a . 

d  .  . 

dp 

dt 

-  folpVxVz)  ~ 

dx 

dpvy 

dt 

- 

dP 

dy 

II 

§1* 

+  P)v: 

(4.5) 


The  pressure  and  energy  are  related  by 


e  =  i  +  v;) 


(4.6) 


where  e  =  P/il  —  1).  The  right  sides  of  Eqs.  (4.5)  are  separated  into  two  parts,  the  y- 
direction  terms  and  the  x-direction  terms.  This  arrangement  in  each  of  the  four  equations 
separates  the  ^-derivatives  and  the  x-derivatives  in  the  divergence  and  gradient  terms  into 
parts  which  can  be  treated  sequentially  by  a  general  one-dimensional  continuity  equation 
solver. 

Each  ^-direction  column  in  the  grid  is  integrated  using  the  one-dimensional  LCPFCT 
module  to  solve  the  four  coupled  continuity  equations  (4.5)  from  time  t  to  t  +  A t.  The 
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y-direction  split-step  equations  to  be  solved  are 

dp  6 

Sm~  ai™ 


~(f>VxVy) 


d  .  .  dP 

^(PV„)  - 


f  =  -  k(EV']  -  k™ ' 

Equations  (4.7)  are  in  the  form  of  the  general  continuity  equation  (1.1)  with  a  =  1  for 
planar  geometry.  Because  the  y  gradients  and  fluxes  are  being  treated  together,  the  one¬ 
dimensional  integration  connects  those  cells  which  are  influencing  each  other  through  the 
y-component  of  convection. 

The  changes  due  to  the  derivatives  in  the  x- direction  must  now  be  included.  This  is 
done  in  a  second  split  step  of  one-dimensional  integrations  along  each  x-column, 

dp  d  , 


9 1  ,  ap 
-  jjGxw.)  - 


d£Vy 


f 

where  a  =  1  in  Eq.  (1.1)  for  planar  geometry.  The  x  and  y  integrations  are  alternated, 
each  pair  of  sequential  integrations  constituting  a  full  convection  timestep.  Thus  a  single 
optimized  algorithm  for  a  reasonably  general  continuity  equation  can  be  used  to  build  up 
multidimensional  fluid  dynamics  models.  Analogous  equations  for  axisymmetric  geometry 
have  been  written  out  in  Oran  and  Boris  (1987). 

To  use  this  split-step  approach,  the  timestep  must  be  small  enough  that  the  distinct 
components  of  the  fluxes  do  not  change  the  cell-averaged  values  appreciably  during  the 
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timestep.  This  approach  is  second-order  accurate  as  long  as  the  timestep  is  small  and 
changed  slowly  enough,  but  there  is  still  a  bias  built  in  depending  on  which  direction, 
x  or  y,  is  integrated  first.  To  remove  this  bias,  the  results  from  two  calculations  for 
each  timestep  can  be  averaged,  an  expensive  but  effective  solution.  Alternately  a  fully 
multidimensional  FCT  algorithm  can  be  used  such  as  developed  by  Zalesak  (1979,  1981) 
or  DeVore  (1989,1991)  with  some  corresponding  extra  cost  and  complication.  Generally 
this  sequencing  bias  is  quite  small  and  is  usually  ignored. 
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5.  HOW  TO  USE  LCPFCT 


The  set  of  Fortran  subroutines  that  make  up  the  LCPFCT  library  is  listed  in  Appendix  A. 
This  library  contains  a  main  subroutine,  called  LCPFCT,  and  several  auxiliary  subroutines. 
This  structure  serves  both  efficiency  and  flexibility:  minimizing  the  need  to  repeat  common 
calculations  and  providing  flexibility  in  defining  various  geometries,  source  terms,  and 
boundary  conditions.  Thus,  for  example,  a  single  velocity  profile  may  be  used  to  convect 
a  number  of  different  continuity  equations  representing  different  chemical  species,  fluid 
phases,  or  ionization  states.  All  velocity-dependent  coefficients  that  are  common  to  the 
FCT  algorithms  for  these  several  equations  during  a  particular  timestep  and  integration 
direction  are  computed  once  by  subroutine  VELOCITY  and  placed  in  a  common  block  for 
use  by  the  repeated  calls  to  LCPFCT  which  will  integrate  each  of  the  equations  separately. 
An  entire  calculation,  therefore,  requires  a  sequence  of  calls  1)  to  define  the  geometry  by 
specifying  a  suitable  computational  grid,  2)  to  calculate  a  number  of  velocity-dependent 
factors,  3)  to  establish  the  boundary  condition  coefficients  for  the  next  continuity  equation 
to  be  integrated,  4)  to  calculate  the  source  terms  in  Eqs.  (4. 1-4.3),  and  5)  to  advance 
the  fluid  variables  one  continuity  equation  at  a  time. 

5.1  LCPFCT  Variables  in  Common 

Information  is  passed  between  the  user’s  program  and  the  LCPFCT  library  generally 
through  the  arguments  to  the  subroutine  calls.  Information  is  passed  between  the  various 
subroutines  of  the  LCPFCT  library  both  through  the  subroutine  arguments  and  through 
named  common  blocks.  The  user  is  asked  to  control  and  store  the  information  pertaining 
specifically  to  his  problem  and  the  particular  continuity  equations  being  solved  while  the 
LCPFCT  library  controls  all  data  that  might  be  reused  or  that  is  particular  to  the  FCT 
algorithms  being  used  to  integrate  and  manage  the  grid  and  the  equations. 

Each  of  the  subroutines  in  the  library  performs  a  different,  well-defined  task.  The 
main  subroutine  LCPFCT  convects  the  variables,  and  it  must  be  called  for  each  variable 
integrated  at  each  timestep  or  partial  timestep.  Subroutine  MAKEGRID  calculates  the 
geometric  coefficients  and  must  be  called  any  time  the  grid  cell  interfaces  are  changed.  The 
subroutine  VELOCITY  updates  the  velocity-dependent  coefficients  and  must  be  called 
each  time  the  convective  velocity  or  the  grid  is  changed.  Subroutine  SOURCES  is  called 
separately  each  time  a  new  source  term  for  a  continuity  equation  needs  to  be  evaluated. 
Thus  none,  one,  or  several  different  source  terms  may  be  added  together  and  passed  to  the 
continuity  equation  solver.  LCPFCT  then  resets  the  source  terms  to  zero  at  the  end  of 
its  execution.  Thus  source  terms,  which  generally  are  not  reuseable  in  any  case,  must  be 
recomputed  for  each  call  to  LCPFCT.  Table  5.1  below  defines  the  variables  in  FCT  .GRID 
and  their  equivalent  algorithmic/physical  definition  is  given  in  Section  3.  These  library 
common  blocks  generally  begin  with  the  prefix  FCT_ 
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Table  5-1  Variables  in  LCPFCT  Common  Blocks 


Type 

Text  Symbol  Meaning 

FCT.GRID  variables 

ROH  RA(N+1)* 

r*-i 

Cell  boundary  location;  start  of  timestep 

RNH 

RA(N+1) 

rn  i 

Cell  boundary  location;  end  of  timestep 

LO 

RA(N) 

A° 

Cell  volume;  start  of  timestep 

LN 

RA(N) 

A? 

Cell  volume;  end  of  timestep 

AH 

RA(N+1) 

Cell  interface  area;  average  over  timestep 

LH 

RA(N+1) 

§[AT  +  AJL1] 

RLN 

RA(N) 

1/A? 

RLH 

RA(N+1) 

Afl/A?  +  1/A?_,] 

DIFF 

RA(N+1) 

Array  used  for  grid  differences  in  MAKEGRID 

FCT.VELO  variables 


HADUDTH  RA(N+1) 

EPSH  RA(N+1) 

NULH  RA(N+1) 
MULH  RA(N+1) 
ADUGTH  RA(N+1) 

VDTODR  RA(N+1) 


^AM^Av^  Interface  flux  coefficient  to  determine 

transported  flux 

Avj_^A t  Nondimensional  interface  velocity 

Diffusion  flux  coefficient 
A-_^  Raw  antidiffusion  flux  coefficient 

Volume  swept  out  by  interface 


AtAv. 


Nonconservative  form  of  transport  coefficient 


FCT_MISC  variables 

SOURCE 

DIFF1 

RA(N) 

REAL 

{ >t 

Sum  of  all  the  source  terms 

Residual  diffusion;  value  of  used  in 

antidiffusion  coefficient;  default  =  1.000 

FCTJMDEX  variables 

SCALARS 

INDEX 

NIND 

RA(NIND) 

IA(NIND) 

INTEGER 

{ }t 

Additive  scalar  source  terms 

Scalar  list  of  cells  to  receive  added  sources 
Number  of  nonzero  scalars  in  the  indexed  list 

Table  5.1  Variables  in  LCPFCT  Common  Blocks  (Cont.) 


Type 

Text  Symbol 

Meaning 

FCT-SCRH  variables 

LNRHOT  RA(N)* 

A”  pi  and  A "p" 

Transported/diffused  mass  elements 

LORHOT 

RA(N) 

A ip*  and  A ?pf 

Transported  mass  elements 

FSGN 

RA(N+1) 

Sign  of  grid  differences  of  pi 

FABS 

RA(N+1) 

1/^4 1 

multiple  uses 

Absolute  value  of  raw  antidiffusive  flux 

FLXH 

RA(N+1) 

Used  for  convective  and  diffusive  fluxes 

TERP 

RA(N+1) 

Si-^iipi+i  - 

pi)  Antidiffusive  flux  limit  from  right 

TERM 

RA(N+1) 

Si-jA^pi-i 

—  pi-2 )  Antidiffusive  flux  limit  from  left 

RHOT 

RA(N) 

pT 

Transported,  sources  added  and 

RHOTD 

RA(N) 

Pi 

compressed  density 

Transported  diffused,  sources  added  and 

SCRH 

RA(N) 

multiple  uses 

compressed  density 

Source  term  scratch  space 

SCR1 

RA(N) 

multiple  uses 

Source  term  scratch  space 

*  RA(N)  stands  for  Real  Array  of  length  N. 


**  IA(N)  stands  for  Integer  Array  of  length  N. 
t  Source  terms  defined  in  Eq.  (3.10) 


As  will  be  seen  in  the  appendices,  all  of  the  one-dimensional  LCPFCT  arrays  meant  to  span 
the  maximum  size  of  the  physical  grid  are  dimensioned  NPT  (number  of  points)  and  this  is 
set  to  202  everywhere  by  a  parameter  statement.  When  a  bigger  problem  is  attempted,  for 
example  a  250  x  150  grid  in  two  dimensions,  this  size  should  be  increased.  By  convention 
we  leave  two  more  points  than  the  maximum  line  through  the  system  although  one  extra 
should  be  enough. 

The  LCPFCT  library  is  structured  so  that  information  that  needs  to  be  passed  from 
the  user’s  control  program  to  LCPFCT  is  done  through  arguments  in  various  subroutine 
calls.  The  user  generally  does  not  need  to  access  the  internal  variables  stored  in  the 
named  common  blocks.  There  are  exceptions  to  this,  however,  when  a  more  advanced 
user  may  want  to  and  can  access  these  internal  variables.  For  example,  the  common  block 
FCT_GRID  stores  and  transmits  information  about  the  grid  locations,  grid  motion,  cell 
volumes  and  cell  interface  areas.  One  can  include  FCT-GRID  in  a  user-supplied  subroutine 
where  the  volumes  and  areas  of  the  cells  are  computed  for  a  nonstandard  user-specified  grid 
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geometry.  Another  example  could  involve  user  modification  of  the  antidiffusion  coefficients 
(Fortran  variable  MULH)  in  FCT.VELO  to  steepen  known  fluid  interfaces  or  contact 
surfaces. 

FCT-VELO  contains  velocity-dependent  information  about  diffusion  and  antidiffusion 
coefficients  and  fluxes  through  the  cell  interfaces.  FCTJvIISC  includess  the  array  contain¬ 
ing  the  accumulated  source  terms  and  the  residual  diffusion  coefficient,  DIF  FI  (defaulted 
to  0.999).  DIF  FI  may  be  reset  by  a  call  to  subroutine  RESIDIFF  to  unity  for  minimal 
residual  diffusion  or  to  slightly  smaller  values  than  0.999.  FCTJ3CRH  contains  a  number 
of  internal  scratch  vectors  used  by  the  LCPFCT  subroutine  and  other  subroutines  of  the 
libary.  They  are  in  common  to  allow  reuse  of  the  space  but  no  information,  by  convention, 
is  ever  passed  between  subroutines  using  this  common  block.  Equivalencing  the  variables 
in  FCTJ3CRH  with  scratch  storage  in  the  user’s  program  provides  a  way  to  save  space 
but  the  capacity  of  modern  computers  generally  makes  this  a  needless  economy.  There  is 
also  a  common  block  FCT.NDEX  which  appears  only  in  SOURCES,  ZERODIFF,  AND 
ZEROFLUX.  FCT_NDEX  is  intended  to  convey  scalar  indexed  source  terms  directly  from 
a  user  program  to  SOURCES,  or  indexed  lists  of  cells  to  ZERODIFF  or  ZEROFLUX, 
without  need  for  a  more  complex  calling  sequence.  These  and  other  miscellaneous  uses  of 
the  LCPFCT  library  including  a  few  special  auxiliary  routines  are  discussed  in  Section  7. 

The  LCPFCT  subroutines,  their  arguments,  and  their  calling  sequences  are  decribed 
in  detail  in  the  subsections  below,  both  in  tabular  form  and  in  explanatory  text.  The 
Fortran  subroutines  themselves  are  reproduced  in  Appendix  A.  There  are,  in  addition 
several  other  library  subroutines  in  Appendix  A  whose  use  is  often  not  necessary  or  which 
are  needed  only  for  some  simple  auxiliary  tasks  (ZERODIFF,  ZEROFLUX,  CONSERVE) 
or  for  special  types  of  applications  (COPYGRID,  NEW-GRID,  SET_GRID).  These  are 
discussed  only  briefly  here  and  in  Section  7  on  “Esoterica”  but  they  also  appear  in  Appendix 
A.  By  reading  through  the  LCPFCT  subroutine  programs  in  Appendix  A,  the  reader  can 
determine  the  function  of  each  routine  exactly  by  looking  at  the  quantities  which  each 
uses,  computes,  and  leaves  in  the  named  common  blocks. 

5.2  Subroutines  in  LCPFCT 
Subroutine  MAKEGRID:  - 

Subroutine  MAKEGRID  sets  up  the  grid  parameters  and  computes  cell  volumes  and  inter¬ 
face  areas  for  the  entire  LCPFCT  library.  The  information  computed  by  MAKEGRID  is 
passed  through  common  block  FCT.GRID  to  subroutines  VELOCITY,  SOURCES,  CON¬ 
SERVE,  CNVFCT,  and  LCPFCT.  Table  5.2  shows  the  calling  sequence  and  defines  the 
arguments  for  MAKEGRID.  The  single  subroutine  MAKEGRID  subsumes  the  functions 
played  by  the  three  subroutines  IGRIDD,  NGRIDD,  and  OGRIDD  in  the  previously  pub- 
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Table  5.2  Arguments  in  Subroutine  MAKEGRID 


CALL  MAKEGRID  (RADHO,  RADHN,  II,  INP,  ALPHA) 
Variable  Name  Type  Text  symbol  Meaning 


RADHO 

RA(INP)* 

r° 

i-i 

RADHN 

RA(INP)* 

rn  1 

t-3 

11 

Integer 

11 -i 

INP 

Integer 

IN+% 

ALPHA 

Integer 

a 

Cell  interfaces  at  start  of  timestep 
Cell  interfaces  at  end  of  timestep 

Index  of  first  active  cell  interface 
Index  of  last  active  cell  interface 
—  1  for  planar  (Cartesian)  geometry 
=  2  for  cylinderical  geometry 
=  3  for  spherical  geometry 
=  4  user-supplied  geometry 


*  RA(N)  stands  for  Real  Array  of  length  N  . 


lished  version  of  the  FCT  library.  This  is  the  single  greatest  change  from  a  user’s  per¬ 
spective  in  the  current  version  and  was  made  to  simplify  control  of  the  grid  at  the  cost  of 
a  few  arithmetic  operations  which  strictly  speaking  can  be  avoided  in  some  applications. 
MAKEGRID  is  used  to  generate  the  geometry-dependent  coefficients  for  a  particular  line 
of  integration  in  a  particular  direction.  If  the  grid  is  fixed  and  only  one  direction  of  inte¬ 
gration  is  active,  one  call  to  MAKEGRID  is  the  only  geometric  call  needed.  If  all  rows  of 
a  two-dimensional  calculation  have  the  same  grid,  MAKEGRID  only  need  be  called  once 
before  the  first  row  integration  of  a  timestep.  Then  it  must  be  called  again  before  be¬ 
ginning  column  integrations  to  complete  the  split  multidimensional  timestep.  The  calling 
sequence  to  subroutine  MAKEGRID  has  five  arguments: 

1.  RADHO  —  A  real  array  containing  the  location  of  the  “old”  interfaces  of  the  grid 
cells,  which  is  referred  to  in  Section  3  as  rf+^ . 

2.  RADHN  -  A  real  array  containing  the  location  of  the  “new”  interfaces  of  the  grid 
cells,  which  is  referred  to  in  Section  3  as  r!^. 

3.  II  -  The  first  index  of  the  old  and  new  cell  interfaces  supplied  in  RADHO  and 
RADHN .  Typically  the  grid  is  set  up  from  cell  and  interface  71  across  the  entire 
system  to  cell  IN  and  interface  IN  +  1  even  though  any  specific  integration  may  use 
only  a  portion  of  the  grid.  Care  should  be  exercised  if  II  does  not  equal  1. 

4.  INP  -  The  last  index  of  the  old  and  new  active  cell  interfaces  supplied  in  RADHO 
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and  RADHN. 

5.  ALPHA  -  The  grid  geometry  indicator,  a  =  1  for  cartesian  geometry,  a  —  2  for 
cylinderical  geometry,  and  a  =  3  for  spherical  geometry.  The  fourth  option,  a  = 
4,  requires  the  user  to  write  a  subroutine  called  before  the  call  MAKEGRID.  This 
subroutine  must  compute  the  timestep  centered  interface  areas,  }.  and  the 

old  and  new  cell  volumes  {LOi}  and  {LJVj},  placing  the  results  in  common  block 
FCT_GRID.  Even  for  the  case  of  the  user  supplied  geometry,  the  old  and  new  interface 
locations  are  passed  to  MAKEGRID  through  the  arguments  RADHO  and  RADHN. 


Subroutine  VELOCITY:  - 


Table  5.3  Arguments  in  Subroutine  VELOCITY 


CALL  VELOCITY  (UH,  II,  INP,  DT) 


Variable  name  Type 

Text  symbol 

Meaning 

UH 

RA(INP)* 

vi-h 

Cell  interface  velocities 

11 

Integer 

11- i 

index  of  the  first  interface  integrated 

INP 

Integer 

w+% 

index  of  the  last  interface  integrated 

DT 

Real 

At 

time  step 

•  RA(N)  stands  for  Real  Array  of  length  N  . 


After  the  grid  geometric  factors  are  computed,  subroutine  VELOCITY  is  used  to  compute 
the  velocity-dependent  coefficients  for  the  convective  transport,  diffusion,  and  antidiffusion. 
This  call  must  be  made  each  time  the  convective  transport  velocity  is  changed.  VELOCITY 
need  be  called  only  once  if,  for  example,  the  velocity  is  constant  in  time.  However,  for 
a  typical  fluid  problem  with  a  second-order  time  integration,  VELOCITY  must  be  called 
twice  for  each  row  and  column  of  the  grid:  once  with  the  velocities  at  the  start  of  the 
timestep  and  again  after  the  half  step  using  the  velocities  computed  from  the  half  step. 
VELOCITY  must  also  be  called  each  time  there  is  a  change  in  the  grid  locations  even  if 
the  velocity  field  itself  has  not  changed.  The  calling  sequence  to  subroutine  VELOCITY 
has  four  arguments: 

1.  UH  -  The  fluid  velocities,  {v^},  on  the  cell  interfaces,  {r€_^ }.  These  must  be 
computed  as  some  average  of  the  cell  centered  velocities  {v^  }, 
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2.  II  -  The  interface  index  of  the  first  cell,  at  r”1_^,  in  the  domain  to  be  integrated.  This 
is  the  location  where  boundary  conditions  at  one  side  of  the  domain  of  integration  are 
specified. 

3.  INP  -  The  interface  index  of  the  last  cell,  at  in  the  domain  to  be  integrated. 

This  is  the  location  where  boundary  conditions  at  the  other  side  of  the  domain  of 
integration  are  specified. 

4.  DT  -  the  timestep. 

The  velocities  and  are  also  the  boundary  conditions  on  the  velocity  and 

determine  the  flux  of  the  conserved  quantity  through  the  boundary.  If  the  velocity  of  the 
grid  at  the  boundary  is  equal  to  UH  there,  the  convection  flux  of  the  conserved  quantity 
through  the  boundary  should  be  identically  zero. 

The  LCPFCT  routines  also  allow  the  user  to  integrate  variables  in  a  selected  part 
of  the  grid.  For  example,  one  can  eliminate  a  corner  of  a  two-dimensional  grid  from 
the  integration  or  allow  this  comer  to  be  integrated  seperately.  Similarly  the  user  can 
implement  special  boundary  conditions  in  the  interior  of  the  grid.  This  is  done  by  using 
the  parameter  J1  (different  from  1)  to  define  the  first  cell  to  be  integrated  or  reducing 
INP  =  IN  -f  1,  the  last  cell  interface.  It  is  important  to  remember  that  the  grids  and 
fluxes  are  defined  on  the  boundaries  of  cells  and  that  INP  should  be  the  value  of  the  last 
cell  to  be  integrated  plus  one.  There  should  always  be  IN  +  1  interfaces  when  IN  cells 
are  integrated. 


Subroutine  SOURCES:  - 

Once  the  call  to  VELOCITY  has  been  made,  these  velocity-dependent  coefficients  can  be 
used  to  convect  several  different  conserved  quantities  by  corresponding  separate  calls  to  the 
main  subroutine  LCPFCT.  For  the  solution  of  the  coupled  fluid  dynamics  equations,  this 
involves  a  call  to  LCPFCT  for  the  mass  density,  each  momentum  density,  and  the  energy 
density.  For  each  of  these  equations,  source  terms  are  added  by  a  call  to  the  subroutine 
SOURCES  immediately  prior  to  the  corresponding  call  to  LCPFCT.  The  sum  of  several 
different  sources  can  be  accumulated  by  a  sequence  of  calls  to  SOURCES,  which  keeps 
the  running  sum  from  all  SOURCES  calls  since  the  last  call  to  LCPFCT  in  the  real  array 
SOURCE  in  FCT.MISC.  Once  LCPFCT  uses  SOURCE,  it  is  reset  to  zero  so  new  sources 
can  be  added  or  it  can  be  left  at  zero  until  it  is  needed  again.  The  calling  sequence  of 
subroutine  SOURCES  has  eight  arguments: 

1-2.  II  and  IN  are  the  first  and  last  cells  integrated  using  the  velocities  set  up  by  the  last 
call  to  VELOCITY. 
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Table  6.4  Arguments  in  Subroutine  SOURCES 


Call  SOURCES  (11,  IN,  DT,  MODE,  C,  D,  Dl,  DN) 

Variable  Name 

Type 

Text  symbol 

Meaning 

11 

Integer 

l 

Location  of  first  cell  of  integration 

IN 

Integer 

N 

Location  of  last  cell  of  integration 

DT 

REAL 

At 

Timestep 

MODE 

Integer 

=  1  computes  V  •  D\  conservatively 
=  2  computes  C2VD2 
=  3  adds  D3  to  the  sources 
=  4  V  •  Di  from  interface  data  D 
=  5  C2VD2  from  interface  data  D 
=  6  adds  +C  for  selected  indexed  cells 

C 

RA(N)* 

Ck,i 

Array  of  source  variables 

D 

RA(N) 

Array  of  source  variables 

Dl 

Real 

Dn 

First  interface  value  of  D  (if  needed) 

DN 

Real 

Dinp 

Last  interface  value  of  D  (if  needed) 

*  RA(N)  stands  for  Real  Array  of  length  N  . 


3.  DT  is  the  current  timestep  used  to  advance  the  convected  quatities.  The  value  of  DT 
passed  to  sources  should  be  equal  to  one  half  the  whole-timestep  value  for  the  half 
timestep  integration  in  a  fluid  dynamics  calculation. 

4.  MODE,  an  integer,  determines  the  types  of  source  terms  included.  SOURCES  com¬ 
putes  divergence,  gradient,  and  additive  source  terms  according  to  Eq.  (3.10).  When 
MODE  =  1,  the  source  term  (V  •  D)  in  Eq.  (3.10)  is  computed  using  the  cell-centered 
array  D.  When  MODE  =  2,  the  source  term  ( CVD )  in  Eq.  (3.10)  is  computed  from 
cell-centered  arrays  C  and  D.  MODE  —  3  adds  an  externally  computed  source  term 
D3  as  in  Eq.  (3.10).  MODE  =  4  and  MODE  =  5  are  used  to  compute  the  same 
sources  as  MODE  =  1  and  MODE  =  2,  except  that  arrays  C  and  D  are  provided 
as  cell-interface  data  by  the  user.  MODE  =  6  is  used  like  MODE  =  3  with  nonzero 
sources  appearing  only  at  the  NJND  cells  indicated  in  the  first  NIND  locations  of 
the  integer  array  INDEX.  When  MODE  =  1,  3,  4,  or  6,  the  array  C  is  not  used  at 
all. 

5-6.  C  and  D  are  arrays  of  source  datahaving  different  uses  as  described  in  item  4  above. 
The  values  of  the  source  terms  computed  by  SOURCES  are  passed  to  the  subroutine 


32 


LCPFCT  through  the  common  block  FCT_MISC  in  the  real  array  SOURCE. 
7-8.  D1  and  DN  are  source  data  at  the  boundaries  of  the  integration  region. 


Subroutine  LCPFCT:  - 

The  main  subroutine  LCPFCT  integrates  and  updates  the  variables.  It  must  be  called  for 
each  of  the  conserved  quantities  to  be  integrated.  Subroutine  CNVFCT  is  treated  exactly 
the  same  as  LCPFCT  with  the  one  difference  that  the  compression  term  in  the  continuity 
equation  is  left  out.  Thus  CNVFCT  really  solves  the  ‘advection’  equation  rather  than  the 
full  continuity  equation.  The  calling  sequence  far  subroutine  LCPFCT  (CNVFCT)  has 
nine  arguments: 

1.  RHOO  -  A  real  array  that  stores  the  values  of  one  of  the  conserved  quantities  p° 
at  the  beginning  of  the  timestep.  The  symbol  p  is  used  here  to  represent  the  mass 
density,  momentum  density,  energy  density,  species  density,  or  any  other  conserved 
quantity  for  which  the  fluid  velocity  v  used  in  the  previous  call  to  VELOCITY  is  the 
appropriate  convective  velocity. 

2.  RHON  -  A  real  array  that  stores  the  values  of  pj*  at  the  end  of  the  timestep.  RHOO 
and  RHON  may  be  the  same  array  provided  the  values  of  RHOO  do  not  need  to  be 
saved.  (These  arrays  should  be  different  if  a  two-step  algorithm  is  being  used.) 

3-4.  11  and  IN  are  the  first  and  last  grid  points  integrated  in  the  domain  from  cell  71  to 

IN. 

The  next  four  arguments,  SRHOl ,  VRHOl,  SRHON,  VRHON,  are  real  numbers  used 
to  define  a  general  set  of  boundary  conditions.  LCPFCT  uses  guard  cells  on  either  end 
of  the  integrated  domain  to  define  boundary  conditions.  These  guard  cells  are  used  to 
continue  the  calculation  from  the  interior  of  the  grid  to  the  exterior  of  the  grid  and  provide 
the  missing  data  for  the  calculation  on  either  end  of  the  integrated  domain.  The  guard-cell 
values  are  a  linear  combination  of  the  value  just  inside  the  boundary  and  an  externally 
imposed  value. 

5.  SRHOl  -  The  slope  boundary  condition  factor  for  the  guard-cell  values  adjacent  to 
cell  71.  Using  SRHOl,  the  derivative  of  the  solution  can  be  specified  on  the  first 
interface. 

6.  VRHOl  -  A  constant  to  be  added  to  the  first  guard  cell  values.  The  equation  for 
the  density  value  at  guard  cell  71  -  1  is  pg  =  Si  x  pn  +  V\. 

7.  SRHON  -  The  slope  boundary  condition  factor  for  the  guard-cell  values  adjacent  to 
cell  IN.  Using  SRHON ,  the  derivative  of  the  solution  can  be  specified  on  the  last 
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Table  5.5  Arguments  in  Subroutines  LCPFCT  and  CNVFCT 


Call  LCPFCT  (  RHOO,  RHON,  11,  IN,  SRHOl,  VRHOl,  SRHON,  VRHON,  PBC  ) 

Call  CNVFCT  (  RHOO,  RHON,  11,  IN,  SRHOl,  VRHOl,  SRHON,  VRHON,  PBC  ) 

Variable  Name 

Type 

Text  Symbol 

Meaning 

RHOO 

RA(N)* 

Pi 

Grid  point  densities  at  start 

RHON 

RA(N) 

P? 

Grid  point  densities  at  end 

11 

Integer 

Ilorl 

Index  of  first  cell  of  integration 

IN 

Integer 

INorN 

Index  of  last  cell  of  integration 

SRHOl 

Real 

Si 

First  derivative  boundary  condition 

VRHOl 

Real 

Vi 

First  constant  boundary  condition 

SRHON 

Real 

Sn 

Last  derivative  boundary  condition 

VRHON 

Real 

VN 

Last  constant  boundary  condition 

PBC 

Logical 

.true.  =  Periodic  boundary  conditions 

*  RA(N)  stands  for  Real  ARRAY  of  length  N  . 


interface. 

8.  VRHON  -  A  constant  to  be  added  to  the  last  guard  cell  values.  The  equation  for 
the  density  value  at  guard  cell  IN  +  1  is  pg  =  Sn  x  pin  4-  Vn- 

9.  PBC  -  Declared  a  ‘logical’  variable  with  the  value  .true,  for  periodic  boundary 
conditions  and  .false,  otherwise.  When  periodic  boundary  conditions  are  used,  the 
other  four  boundary  condition  variables  (5-8  above)  are  ignored. 

A  more  complete  description  of  how  to  specify  and  use  these  variables  along  with 
examples  of  how  to  set  up  a  variety  of  boundary  conditions  for  gas  dynamic  problems  is 
the  subject  of  Section  6.  Actual  programs  using  some  of  these  examples  are  given  in  the 
appendices. 

The  Do  loops  in  LCPFCT  can  be  identified  with  the  corresponding  equations  in 
Section  3.  Eq.  (3.6)  is  combined  with  part  of  Eq.  (3.9)  in  Do  1.  Do  2  combines  the  rest 
of  Eq.  (3.9)  with  eq.  (3.10),  the  precomputed  source  terms,  and  with  Eq.  (3.11).  Do  3 
corresponds  to  Eq.  (3.14)  and  also  computes  the  differences  of  the  transported,  diffused 
density  later  used  in  Do  5,  the  flux-correction  formula  Eq.  (3.21).  Do  4  computes  a 
number  of  the  FCT  terms  also  appearing  in  Eq.  (3.21).  Do  5  calculates  the  new  density 
profile  {/??}  of  Eq.  (3.22),  returned  as  the  output  of  LCPFCT. 


34 


In  addition  to  the  main  sequence  of  subroutines,  there  are  additional  subroutines 
which  give  the  LCPFCT  library  considerable  added  flexibility.  These  are:  CNVFCT,  a 
nonconservative  form  of  FCT;  ZEROFLUX  and  ZERODIFF,  which  turn  off  the  advection 
and/or  diffusion  fluxes  at  specified  interfaces;  RESIDIFF,  discussed  above,  to  change  the 
residual  diffusion  coefficient;  and  CONSERVE,  which  monitors  the  conservation  of  user- 
specified  variables. 


CNVFCT  (RHOO,  RHON,  II,  IN,  SRHOl,  VRHOl,  SRHON,  VRHON,  PBC)  is  a  non¬ 
conservative  convective  form  of  the  FCT  solver  which  solves  the  advective  equation 


dp  _ 

ttt  +  vvp  =  Sources  , 
at 


(5.1) 


rather  than  the  conservative  form 

dp 

-7—  +  vpv  —  Sources  . 
at 


(5.2) 


CNVFCT  serves  roughly  the  same  purpose  as  the  LCPFCT  subroutine  and  the  argu¬ 
ment  list  is  identical  to  that  of  LCPFCT.  CNVFCT  finds  its  main  usage  when  a  mass 
fraction  for  a  conserved  density  must  be  transported.  Thus,  if  /  =  pa/ptotai  is  the 
ratio  of  a  species  density  to  the  total  density,  /  satisfies  Eq.  (5.1)  rather  than  (5.2). 
Source  terms  are  treated  in  the  same  way  in  both  LCPFCT  and  CNVFCT  and  the 
sequence  of  auxiliary  subroutine  calls  is  also  identical. 


ZERODIFF  (IND)  is  a  specialized  subroutine  that  allows  the  user  to  set  to  zero  all 
diffusive  and  antidiffusive  fluxes  calculated  in  LCPFCT  through  an  arbitrary  number 
of  specific  cell  interfaces.  ZERODIFF  does  not  alter  the  convective  fluxes  through  the 
selected  interfaces  and  is  therefore  useful  in  one-dimensional  codes  where  the  interfaces 
of  a  number  of  different  materials  are  being  tracked  in  a  Lagrangian  manner.  ZERO¬ 
DIFF  guarantees  that  there  is  no  diffusion  of  the  materials  across  the  chosen  interfaces. 
In  multidimensional  models,  ZERODIFF  may  be  used  to  ensure  that  nothing  diffuses 
onto  or  off  of  the  grid  at  a  boundary  where  the  incoming  flux  is  known.  Examples  of 
the  use  of  ZERODIFF  are  included  in  the  test  programs  reprinted  in  the  appendices. 
The  call  to  ZERODIFF  should  be  made  just  after  the  call  to  VELOCITY.  A  call 
to  VELOCITY  erases  the  effect  of  a  call  to  ZERODIFF.  The  calling  sequence  for 
subroutine  ZERODIFF  has  one  argument: 

1.  IND  -  If  positive,  an  integer  index  to  the  cell  interface  where  the  diffusive  fluxes  are 
to  be  set  identically  equal  to  zero.  If  negative,  the  user  must  set  NIND  in  common 
block  FCT_NDEX  to  the  number  of  interfaces  to  be  zeroed  and  fill  the  first  NIND 
locations  of  the  integer  array  INDEX  (also  in  FCT-NDEX)  with  the  corresponding 
interface  indices. 


35 


ZEROFLUX  (IND)  is  similar  to  ZERODIFF,  except  that  it  sets  to  zero  the  convective 
fluxes  as  well  as  the  diffusive  and  antidiffusive  fluxes.  The  calling  sequence  is  identical 
to  that  for  ZERODIFF.  ZEROFLUX  is  useful  at  solid  walls.  Examples  of  the  use  of 
ZEROFLUX  are  included  in  the  test  programs  reprinted  in  the  appendices.  The  call 
to  ZEROFLUX  should  be  made  just  after  the  call  to  VELOCITY.  A  call  to  VELOC¬ 
ITY  erases  the  effect  of  a  call  to  ZEROFLUX.  The  calling  sequence  for  subroutine 
ZEROFLUX  has  one  argument: 

1.  IND  -  If  positive,  an  integer  index  to  the  cell  interface  where  the  diffusive  fluxes  are 
to  be  set  identically  equal  to  zero.  If  negative,  the  user  must  set  NIND  in  common 
block  FCT_NDEX  to  the  number  of  interfaces  to  be  zeroed  and  fill  the  first  NIND 
locations  of  the  integer  array  INDEX  (also  in  FCT_NDEX)  with  the  corresponding 
interface  indices. 

CONSERVE  (RHO,  II,  IN,  CSUM)  is  a  useful  utility  subroutine  that  allows  the  user 
to  monitor  the  conservation  of  variables.  It  calculates  the  conservation  integral  as  a 
summation, 

IN 

CSUM  *  A” (5.3) 

i=/i 

where  the  quantity  summed  can  be  any  of  the  grid  quantities  {p*}.  CONSERVE  com¬ 
putes  the  conservation  integral  using  cell  volumes  from  the  last  call  to  MAKEGRID. 
The  calling  sequence  for  subroutine  CONSERVE  has  four  arguments: 

1.  RHO  -  An  array  of  real  values  of  some  grid  quantity  p°  for  which  the  conservation 
integral  is  to  be  calculated. 

2-3  II  and  IN  -  The  first  and  last  cells  to  be  included  in  the  conservaton  integral. 

4.  CSUM  -  A  real  variable  where  the  summed  quantity  is  to  be  stored. 

LCPFCT  is  an  exactly  conservative  algoritm  in  the  sense  that  any  physically  conserved 
quantity  summed  over  a  fixed  interval  remains  constant  to  within  computer  roundoff  error. 
However,  the  user  must  beware  of  boundary  conditions.  Grid  motion  or  fluxes  out  of  the 
boundary  result  in  a  variable  value  of  the  conserved  quantity  determined  by  the  flux 
through  the  two  end  boundary  interfaces. 

There  are  also  three  rather  special  purpose  gridding  routines:  COPYGRID,  which  sets 
aside  a  copy  of  all  the  grid  variables  for  later  reuse  without  recomputation;  SETGRID, 
which  is  used  for  polar  coordinates;  and  NEWGRID,  which  reduces  the  number  of  geo¬ 
metrical  calculations  when  the  new  grid  interface  locations  change  but  the  old  ones  remain 
the  same.  These  subroutines  are  also  reproduced  on  Appendix  A  and  discussed  briefly  in 
Section  7  entitled  “Additional  Information”. 
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5.3  Typical  Calling  Sequences 

We  now  show  how  the  various  LCPFCT  subroutines  axe  interlinked  to  provide  a  com¬ 
plete  calculation.  Examples  through  simple  Fortran  test  programs  are  also  given  in  the 
appendices  and  summarized  in  the  following  tables.  A  typical  sequence  of  calls  for  a 
one-dimensional  gas  dynamics  problem  on  a  fixed  Eulerian  grid  is  given  in  Table  5.6. 


Table  5.6  Calls  for  One-Dimensional  Eulerian  Gas  Dynamics  Problems 


f  Calculate  grid  locations  RADHN  (r”_^  for  i  =  +  1);  initialize  variables 

CaH  MAKEGRID  (  RADHN,  RADHN,  1,  N+l,  1 ) 
f  Begin  timestep  loop 

f  Compute  half  step  interface  velocity  UH  (i£_p,  cell  PRES  (P°) ,  and  cell  PV  (P°vf) 
Call  VELOCITY  (  UH,  1,  N+l,  0.5*DT  ) 

Call  ZERODIFF  (  1  ) 

Call  ZERODIFF  (  N+l  ) 

Call  LCPFCT  (  RHOO,  RHON,  1,  N,  1.0,  0.0,  1.0.  0.0,  .false.  ) 

Call  SOURCES  (  1,  N,  0.5*DT,  2,  ONE,  PRES,  PRE1,  PREN  ) 

Call  LCPFCT  (  RVXO,  RVXN,  1,  N,  1.0,  0.0, 1.0,  0.0,  .fcdse.  ) 

Call  SOURCES  (  1,  N,  0.5*DT,  1,  ZERO,  PV,  PV1,  PVN  ) 

Call  LCPFCT  (  ERGO,  ERGN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

f  Compute  cell  velocities,  source  terms,  for  the  full  step  based  on  the  half-step  results 
(see  GASDYN  example  in  Appendix  C) 

Call  VELOCITY  (  UH,  1,  N+l,  DT  ) 

Call  ZERODIFF  (  1  ) 

Call  ZERODIFF  (  N+l ) 

Call  LCPFCT  (  RHOO,  RHON,  1,  N,  1.0,  0.0,  1.0.  0.0,  .false  ) 

Call  SOURCES  ( 1,  N,  DT,  2,  ONE,  PRES,  PRE1,  PREN  ) 

Call  LCPFCT  (  RVXO,  RVXN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false  ) 

Call  SOURCES  (  1,  N,  DT,  1,  ZERO,  PV,  PV1,  PVN  ) 

Call  LCPFCT  (  ERGO,  ERGN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .folse  ) 

|  Update  velocities,  and  timestep  and  begin  next  timestep 


f  Indicates  work  the  user  must  do. 


Table  5.7  shows  a  sequence  of  calls  appropriate  to  a  Lagrangian  fluid  dynamics  cal¬ 
culation  (advancing  the  cell  interface  locations  as  well  as  p,  pU,  and  E).  In  these  two 
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Table  5.7  Calls  for  One-Dimensional  Lagrangian  Gas-Dynamic  Problem 
t  Begin  timestep  loop 

t  Calculate  grid  locations  RADHO  (r°_  ^ ) ;  initialize  variables 

f  Compute  new  interface  locations  RADHN  interface  velocities  UH  (v°_^),  and 

cell  source  terms  PRES  (P? ),  and  PV  (Ffv°)  for  the  half  step: 

Call  MAKEGRID  (  RADHO,  RADHN,  1,  N+l,  1  ) 

Call  VELOCITY  (  UH,  1,  N+l,  0.5*DT  ) 

Call  ZERODIFF  (  1  ) 

Call  ZERODIFF  (  N+l  ) 

Call  LCPFCT  (RHOO,  RHON,  1,  N,  1.0,  0.0,  1.0.  0.0,  .false.  ) 

Call  SOURCES  (  1,  N,  0.5*DT,  2,  ONE,  PRES,  PLEFT,  PRIGHT  ) 

Call  LCPFCT  (RVXO,  RVXN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

Call  SOURCES  (  1,  N,  0.5*DT,  1,  ZERO,  PV,  PVLEFT,  PVRIGHT  ) 

Call  LCPFCT  (  ERGO,  ERGN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

f  Compute  grid,  velocities,  and  source  terms  for  full  step  based  on  half-step  results 
Call  MAKEGRID  (RADHO,  RADHN,  1,  N+l,  1  ) 

Call  VELOCITY  (  UH,  1,  N+l,  DT  ) 

Call  ZERODIFF  (  1  ) 

Call  ZERODIFF  (  N+l ) 

Call  LCPFCT  (  RHOO,  RHON,  1,  N,  1.0,  0.0,  1.0.  0.0,  .feise.  ) 

Call  SOURCES  (  1,  N,  DT,  2,  ONE,  PRES,  PRE1,  PREN  ) 

CaH  LCPFCT  (  RVXO,  RVXN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

Call  SOURCES  (  1,  N,  DT,  1,  ZERO,  PV,  PV1,  PVN  ) 

Call  LCPFCT  (  ERGO,  ERGN,  1,  N,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

f  Update  new  interface  locations,  velocities,  and  timestep  and  begin  next  timestep 
t  Indicates  work  the  user  must  do. 


examples  cell-center  pressure  source  terms  are  sent  to  Subroutine  SOURCES  for  use  with 
MODE  —  1  and  MODE  =  2.  In  Subroutine  GASDYN  (Appendix  C),  interface  pres¬ 
sure  source  terms  are  computed  by  the  user,  calling  for  MODE  —  3  and  MODE  =  4 
in  Subroutine  SOURCES.  A  multidimensional  fluid  dynamics  program  can  be  formed  by 
time  splitting  the  equations  into  successive  calculations  in  each  direction.  The  half  and 
whole  steps  are  performed  in  successive  pairs  with  appropriate  calls  to  MAKEGRID  to 
change  the  grid  for  the  coordinate  directions.  If  the  grid  moves,  MAKEGRID  is  called 
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Table  5.8  Calls  for  Two-Dimensional  Gas-Dynamic  Problem 


f  Begin  new  time  step  with  the  x  coordinate  direction  integration  ... 
Call  MAKEGRID  (  XCOORD,  XCOORD,  1,  NX+1,  1 ) 

f  Calculate  velocities  and  source  terms  for  the  z-direction  half  step 
Call  VELOCITY  (  VX,  1,  NX+1,  0.5*DT  ) 

Call  ZEROFLUX  ( 1  ) 

Call  ZEROFLUX  (  NX+1 ) 

CaU  LCPFCT  (  RHOO,  RHON,  1,  NX,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

Call  SOURCES  (  1,  NX,  0.5*DT,  2,  ONE,  PRES,  PRE1X,  PRENX) 
Call  LCPFCT  (  RVXO,  RVXN,  1,  NX,  1.0,  0.0,  -1.0,  0.0,  .false.  ) 

CaU  LCPFCT  (  RVY0,  RVYN,  1,  NX,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

CaU  SOURCES  ( 1,  NX,  0.5*DT,  1,  ZERO,  PV,  PV1X,  PVNX) 

CaU  LCPFCT  (  ERGO,  ERGN,  1,  NX,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

f  Calculate  velocities  and  sources  for  whole  step 
f  Repeat  the  last  nine  calls  replacing  0.5*DT  by  DT 

f  Begin  {/-direction  calculations 

CaU  MAKEGRID  (  YCOORD,  YCOORD,  1,  NY+1,  1  ) 

f  Calculate  {/-direction  velocities  and  sources  for  half  step 
CaU  VELOCITY  (  VY,  1,  NY+1,  0.5*DT  ) 

CaU  ZEROFLUX  ( 1 ) 

CaU  ZEROFLUX  (  NY+1 ) 

CaU  LCPFCT  (  RHOO,  RHON,  1,  NY,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

CaU  LCPFCT  (  RVXO,  RVXN,  1,  NY,  1.0,  0.0,  1.0,  0.0,  .folse.  ) 

CaU  SOURCES  (  1,  NY,  0.5*DT,  2,  ONE,  PRES,  PRE1Y,  PRENY  ) 
CaU  LCPFCT  (  RVY0,  RVYN,  1,  NY,  1.0,  0.0,  -1.0,  0.0,  .false.  ) 

CaU  SOURCES  (  1,  NY,  0.5*DT,  1,  ZERO,  PV,  PV1Y,  PVNY  ) 

CaU  LCPFCT  (  ERGO,  ERGN,  1,  NY,  1.0,  0.0,  1.0,  0.0,  .false.  ) 

f  Repeat  the  above  nine  statements  for  the  fuU  timestep 


f  Indicates  work  the  user  must  do. 


with  both  the  old  and  the  new  grid  locations.  A  typical  x  -  y  cartesian  geometry  model 
with  hard  waU  boundaries  is  given  schematicaUy  in  Table  5.8.  The  daggers  in  the  table 
indicate  material  the  user  must  supply. 


5.4  Summary  of  the  Major  LCPFCT  Library  Routines 

LCPFCT  has  several  subroutines  that  perform  the  four  distinct  tasks  required  to  advance 
one  or  more  general  continuity  equations  a  single  timestep.  Here  we  summarize  these  four 
subroutines  and  their  associated  arguments  and  calling  sequences. 

1.  MAKEGRID  (RADHO,  RADHN,  II,  INP,  ALPHA)  -  sets  up  the  finite  volume 
computational  grid  at  the  start  of  the  run  or  when  changing  cell  definitions  at  the 
beginning  of  or  during  a  timestep.  Both  the  grid  at  the  beginnning  of  the  integration 
step  and  at  the  end  of  the  integration  step  must  be  specified. 

4.  VELOCITY  (UH,  II,  INP,  DT)  -  calculates  all  velocity  dependent  terms,  the  diffu¬ 
sion,  and  antidiffusion  coefficients 

5.  SOURCES  (II,  IN,  DT,  MODE,  C,  D,  Dl,  DN)  -  can  be  called  once  or  repeatedly 
to  build  up  composite  sources  terms  of  several  types. 

6.  LCPFCT  (RHOO,  RHON,  II,  IN,  SRHOl,  VRHOl,  SRHON,  VRHON,  PBC)  - 
takes  the  old  densities  RHOO  on  the  old  grid  and  calculates  new  densities  RHON  on 
the  new  grid  using  the  flux-corrected  transport  (FCT)  algorithm. 

These  four  tasks  described  are  programmed  separately  to  eliminate  unnecessary  recal¬ 
culation  of  quantities  which  appear  in  several  different  continuity  equations  having  the 
same  flow  field  (VELOCITY)  or  which  must  be  calculated  only  when  the  grid  is  changed 
(MAKEGRID).  The  source  terms  (SOURCES)  are  treated  separately  because  they  are  not 
used  at  all  in  many  continuity  equations.  Source  terms  should  always  be  computed  imme¬ 
diately  before  they  are  used  in  a  call  to  LCPFCT.  LCPFCT  then  resets  the  source  terms 
to  zero  just  before  returning  to  the  users  program  each  time  it  is  called.  For  example,  if 
the  source  terms  for  the  energy  equation  are  computed  before  the  momentum  equation  is 
advanced,  they  will  be  lost  after  LCPFCT  is  called  to  advance  the  momentum  equation. 
In  addition  the  momentum  equation  would  then  be  solved  incorrectly  because  it  includes 
the  energy  source  terms. 
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6.  BOUNDARY  CONDITIONS 


Boundary  conditions,  distinct  from  the  LCPFCT  solution  algorithm,  are  needed  to  model 
both  confined  and  unconfined  computational  domains.  When  the  system  modeled  is  ef¬ 
fectively  unconfined,  an  infinite  volume  must  be  represented  with  only  a  finite  number  of 
degrees  of  freedom.  When  the  system  is  confined,  the  effects  of  realistic  walls  and  flexible 
interfaces  with  regions  of  inflow  and  outflow  must  be  treated.  Boundary  conditions  for  com¬ 
putational  fluid  dynamics  have  been  discussed  extensively  -  see,  for  example,  Grosch  and 
Orszag  (1977),  Turkel  (1980),  and  Kutler  (1982).  Oran  and  Boris  (1987)  discuss  some  of 
the  general  problems  of  applying  boundary  conditions  to  finite-difference  and  finite-volume 
models.  Specifying  physically  accurate  outflow  conditions  for  multidimensional  regions  of 
subsonic  flow  receives  the  most  attention.  Recently  Thompson  (1987,1990),  Givoli  (1991), 
and  Poinsot  and  Lele  (1992)  have  discussed  methods  for  this  problem.  Grinstein  (1993) 
has  considered  these  open  outflow  boundary  conditions  specifically  for  the  FCT  algorithms 
used  here. 

Depending  on  the  physical  modes  in  the  system  being  simulated,  accurate  treatment  of 
the  boundary  conditions  will  differ  greatly.  In  hyperbolic  systems  that  simulate  convection 
and  acoustic  phenomena,  waves  may  travel  much  faster  than  the  convective  flows  in  which 
they  propagate.  These  waves  carry  information  through  the  medium  in  all  directions 
and  thus  information  can  enter  the  computational  grid  as  well  as  leave  it.  In  parabolic 
systems,  the  information  flow  through  the  computational  domain  is  generally  one  sided  so 
the  solution  can  be  advanced  preferentially  in  one  direction.  Some  supersonic,  compressible 
flows  have  all  characteristics  moving  in  one  direction  so  that  one-sided  or  direction-biased 
equations  can  be  used  to  find  suitable  boundary  conditions. 

There  are  three  distinct  ways  to  implement  boundary  conditions  in  numerical  models 
(Oran  and  Boris,  1987): 

1.  Expand  the  continuum  fluid  variables  in  a  linear  superposition  of  expansion  functions 

with  the  boundary  conditions  built  into  each  of  them,  so  that  any  combination  auto¬ 
matically  satisfies  the  boundary  conditions.  Although  expansions  are  used  in  many 
methods,  this  approach  cannot  be  applied  systematically  to  the  FCT  algorithms. 

2.  Develop  separate  finite-difference  formulas  for  boundary  cell  values  which  reflect  the  for¬ 

mulas  used  in  the  interior  of  the  mesh  combined  with  auxiliary  relations  to  determine 
the  values  of  the  grid  variables  which  would  lie  outside  the  computational  domain. 
These  formulas  often  involve  simple  analytic  formulations  for  the  boundary  variables 
that  use  information  about  the  behavior  of  the  system  near  and  at  the  wall  or  as  it 
approaches  infinity. 

3.  Develop  extrapolations  from  the  interior  to  guard  or  ghost  cells  outside  the  computa- 


41 


tional  domain  that  continue  the  mesh  a  distance  beyond  the  domain  boundary.  These 
ghost  boundary  cells  allow  cells  on  the  domain  boundary  to  be  treated  as  interior 
cells,  often  with  appreciable  simplification  in  the  programming. 

Of  these  methods,  the  third,  defining  guard-cell  values  calculated  separately,  is  the  easiest 
to  use  and  is  therefore  adopted  in  LCPFCT.  Figure  6.1  shows  a  two-dimensional  uniform 
grid  whose  boundary  has  been  outlined  by  thicker  lines.  The  grid  has  Nx  cells  in  the 
rr-direction,  extending  from  xi  to  xr,  and  Ny  cells  in  the  y-direction,  extending  from  y# 
to  yr-  Two  rows  of  cells  in  dashed  lines  are  shown  surrounding  the  computational  grid,  the 
so-called  guard  cells  or  ghost  cells.  Most  applications  of  the  LCPFCT  subroutines  require 
the  user  to  provide  conditions  for  one  layer  of  guard  cells;  any  second  or  third  layers 
used  implicitly  in  higher  differences  are  calculated  inside  the  LCPFCT  routines  from  the 
user-provided  formulas. 

Using  special  finite-difference  formulas  near  boundaries  is  usually  equivalent  to  defin¬ 
ing  variable  values  in  guard  cells.  In  LCPFCT,  the  user  provides  the  coefficients  of  formulas 
that  define  the  guard  cell  values  from  the  current  boundary  cell  quantities.  Rather  than 
specifying  fixed  values  at  the  beginning  of  the  timestep,  this  approach  allows  the  guard 
cell  values  to  be  updated  repeatedly  as  the  fluid  quantities  in  the  boundary  cell  change 
during  the  timestep. 

By  assigning  appropriate  values  to  the  guard  cells,  the  fluid  elements  in  the  domain 
interior  can  be  made  to  feel  appropriate  idealized  external  or  reflecting  wall  conditions  as 
if  there  were  no  boundary  at  all.  When  the  values  of  variables  assigned  to  guard  cells  are 
stored  in  the  same  arrays  as  the  interior  variables,  the  calculation  can  be  advanced  on  the 
entire  grid  using  a  single  set  of  vectorizable  finite-difference  equations. 

To  reduce  the  amount  of  extra  memory  required  in  multidimensional  simulations, 
guard  cells  are  defined  by  LCPFCT  for  only  one  row  at  a  time.  For  example,  a  20  x  20  x  20 
grid  uses  8000  memory  locations  per  variable.  If  this  grid  is  extended  two  guard  cells  in  all 
directions,  the  resulting  24  x  24  x  24  grid  has  13,824  cells,  almost  a  factor  of  two  increase 
with  no  corresponding  improvement  in  resolution!  Because  LCPFCT  redefines  the  guard¬ 
cell  values  for  each  row  being  integrated,  maximum  use  of  the  available  computer  memory 
can  be  made  for  spatial  resolution. 


6.1  Representation  of  Boundary  Conditions  in  LCPFCT 

The  specific  formulation  of  the  boundary  conditions  used  in  LCPFCT  includes  symmetry, 
antisymmetry,  periodicity,  and  inflow-outflow  and  is  given  by 


PG  ~  Sebc  p'ie  +  Vebc, 


(6.1a) 
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Figure  6.1  A  two-dimensional  computational  domain  with  one  row  of  (shaded)  guard  cells. 
Values  of  variables  must  be  specified  in  these  cells  to  model  various  boundary  conditions 
on  the  physical  system  in  order  that  the  variable  values  can  be  updated  on  the  interior 
cells. 

or,  for  periodic  boundary  conditions, 

Pg  —  Pno  »  (6.16) 

where  pn  indicates  the  value  of  one  of  the  conserved  densities  p(x)  at  timestep  n.  Thus 
the  variable  p  stands  for  mass  density,  momentum  density,  energy  density  or  a  chemical 
species  density.  The  subscript  IE  stands  for  either  71  or  IN  depending  on  which  End  of 
the  system  is  being  described,  i.e.,  the  boundary  at  the  1st  or  the  Nth  cell.  The  subscript 
G  indicates  the  guard  cell  for  the  computational  domain,  either  71  —  1  when  IE  is  replaced 
by  71,  or  IN  +  1  when  IE  is  replaced  by  IN. 

The  quantity  Sebc  is  the  Slope  boundary  condition  factor  for  Either  Boundary 
Condition,  the  first  cell  boundary  condition  (when  EBC  is  replaced  by  7?C1),  or  the 
last  cell  boundary  condition  (when  EBC  is  replaced  by  BCN ).  This  factor  multiplies 
the  current  value  just  inside  the  boundary  of  the  computational  domain,  pi£,  to  get  the 
linearly  varying  component  of  the  corresponding  guard  cell  value.  The  quantity  Vebc  is 
specified  by  the  user  external  to  the  LCPFCT  subroutine  as  a  Value  added  to  the  guard¬ 
cell  value.  In  a  physical  situation  where  the  guard  cell  value  does  not  change  regardless  of 
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the  adjacent  value  pie,  the  slope  factor  Sebc  would  be  set  to  zero  and  Vebc  in  Eq.  (6.1) 
is  given  the  correct  value.  Vebc  might  be  the  fixed  temperature  of  a  hot  wall,  for  exam¬ 
ple,  or  the  value  of  the  mass  density  flowing  into  the  computational  domain  at  supersonic 
speed. 

Each  of  the  ideal  confined  and  symmetry  boundary  conditions  treated  below  and  de¬ 
scribed  in  Table  6.1  and  Table  6.2  can  be  obtained  by  choosing  appropriate  values  of  +1 
or  —1  for  Sebc  mid  setting  the  added  constant  Vebc  to  zero.  All  of  the  continuitive 
inflow-outflow  boundary  condition  cases  treated  in  Section  6.3  in  conjunction  with  Ta¬ 
ble  6.3,  Table  6.4,  and  Table  6.5  can  also  be  obtained  by  manipulating  the  values  of  Sebc 
and  Vebc  sent  to  the  LCPFCT  program.  Equation  (6.1)  also  allows  periodic  boundary 
conditions  to  be  implemented  by  choosing  Pbc  —  .true,  rather  than  .false,  and  by  setting 
both  Sebc  and  Vebc  to  zero.  In  this  case,  p%0  is  the  value  of  the  convected  conserved 
variable  at  the  £)ther  boundary.  NO  =  II  when  IE  is  replaced  by  IN  and  NO  =  IN 
when  IE  is  replaced  by  II. 

6.2  Boundary  Conditions  for  Confined  Domains 
Ideal  Symmetry  or  Nonboundary  Conditions 

The  easiest  way  to  treat  boundary  conditions  accurately  and  consistently  is  to  eliminate 
them.  This  can  be  done  in  regions  where  a  symmetry  condition  exists.  The  guard-cell 
values  are  predicted  exactly  from  values  at  corresponding  (symmetric)  interior  locations. 
Symmetry  conditions  can  often  be  applied  in  the  interior  of  a  system  as  well  as  at  a 
boundary.  A  system  may  have  a  natural  symmetry  plane  or  line,  such  as  the  axis  of 
an  axisymmetric  flow.  Often  a  symmetry  line  is  a  good  approximation  to  the  three- 
dimensional  system,  as  in  the  case  of  two  equal  and  opposite  impinging  jets. 

Figure  6.2  shows  the  right  boundary  and  the  last  few  cells  of  a  one-dimensional  grid 
terminating  at  a  cell  interface,  as  adopted  in  LCPFCT.  This  is  called  a  cell-interface 
boundary.  The  edge  of  the  grid  in  the  figure  is  shaded  to  indicate  a  wall  and  a  mirror 
(image)  system  is  shown  in  the  several  guard  cells  beyond  the  boundary.  Similar  figures 
could  also  be  drawn  for  the  left  boundary  and  the  first  few  cells  of  the  grid. 

When  the  given  grid  locations  specify  the  cell  interfaces,  the  piecewise  constant  in¬ 
terpretation  of  the  physical  variable  throughout  the  domain  is  natural  even  though  there 
are  apparent  discontinuities  at  the  cell  interfaces.  In  this  representation,  cells  adjacent  to 
the  boundary  are  complete.  The  boundary  fluxes  enter  and  exit  the  system  at  interfaces 
where  the  geometric  areas  as  well  as  the  variable  values  must  be  known.  Conservation  is 
ensured  by  controlling  the  fluxes  at  these  cell  interfaces. 

In  a  piecewise  linear  representation,  the  cell-interface  locations  are  generally  interpo¬ 
lated  from  the  cell-center  locations.  The  piecewise  linear  format  looks  smoother,  a  major 
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Figure  6.2  Different  applications  of  symmetry  boundary  conditions  with  guard  cells.  The 
interior  of  the  computational  domain  is  on  the  left  of  the  shaded  band,  and  the  guard  cells 
are  on  the  right.  S(x)  is  a  symmetric  function  and  A(x)  is  an  antisymmetric  function,  (a) 
Piecewise  constant  representation  with  a  cell  interface  boundary  (used  by  LCPFCT).  (b) 
Piecewise  linear  representation  with  a  cell-centered  boundary  (not  used  by  LCPFCT). 

advantage  when  the  time  comes  to  show  results.  Most  contour-plotting  routines  interpret 
the  function  values  as  specified  at  the  grid  of  points  with  a  linear  approximation  implied 
in  the  cells  between.  The  resulting  contours  are  visually  quite  smooth,  showing  disconti¬ 
nuities  in  direction  but  not  in  value  at  multidimensional  cell  interfaces.  In  fact,  piecewise 
constant  representations  axe  often  presented  graphically  as  if  they  were  piecewise  linear. 


Table  6.1.  Guard-Cell  Formulas:  Symmetric  (S),  Antisymmetric  (A),  Periodic  (P) 


Boundary  at  Interface  11* 

Boundary  at  Interface  IN+1* 

Sn-i  —  S'/I 

S/jv+i  =  Sin 

S/ 1-2  =  S/i+i 

SlN+2  =  SlN-l 

H 

1 

II 

fH 

1 

r~i 

Ain+ i  =  -Am 

An— 2  —  -Aji+i 

Ain +2  =  —Ain-i 

$ 

1 

II 

£ 

* 

PlN+l  =  Pn 

■P/1-2  =  Pin- i 

PlN+2  =  Pll+1 

*  Throughout  LCPFCT  boundaries  are  defined  at  cell  interfaces. 


The  piecewise  constant  format  is  ideally  suited  for  presentation  as  pixel  plots  where  a 
rectangle  of  color  is  filled  in  for  each  cell  of  a  variable. 

In  LCPFCT,  the  position  of  the  cell  interfaces  are  specified  rather  than  cell-centers. 
This  change  from  the  previous  version,  ETBFCT,  allows  us  to  capture  the  added  simplic¬ 
ity  and  flexibility  of  controlling  the  boundary  fluxes  exactly.  Figure  6.2  shows  two  fluid 
variables,  S(x)  and  A(x).  S(x)  is  symmetric  and  A(x)  is  antisymmetric  with  respect  to  the 
bounding  cell  interface.  In  addition  to  A(x)  and  S(x),  we  also  consider  a  periodic  function 
P(x).  Periodic  boundary  conditions  are  relatively  easy  to  treat  numerically  as  they  are 
simple  variants  of  the  symmetry  conditions  in  which  interior  values  somewhere  are  used 
to  set  guard-cell  values  elsewhere.  The  values  of  the  variables  at  cell  N  +  1  are  equal  to 
those  at  cell  1  in  a  periodic  system.  Periodic  boundary  conditions  arise  in  circular  systems, 
such  as  stacks  of  turbine  blades,  cylindrical  systems,  spherical  systems,  or  in  idealized  ap¬ 
proximations  to  small  segments  of  large  Cartesian  systems.  We  generally  assume  that  the 
guard  cells  are  the  same  size  as  the  corresponding  cells  just  inside  the  boundary.  Table  6.1 
lists  simple  guard-cell  formulas  for  symmetric,  antisymmetric,  and  periodic  variables  for 
the  interface-centered  boundaries  used  in  the  LCPFCT  modules.  The  formulas  include  a 
second  layer  of  guard  cells  for  completeness  though  LCPFCT  uses  only  the  first  row  as 
shown  in  Figure  6.1. 

When  flow  with  both  normal  and  tangential  components  is  directed  against  an  ideal 
wall,  the  physical  conditions  in  the  guard  cells  can  be  found  from  the  values  in  the  nearby 
interior  cells.  This  is  important  for  bounded  Euler  flows  and  for  high  Reynolds-number 
viscous  flows,  in  which  the  boundary  layers  are  approximated  by  additional  phenomenolo- 
gies.  Both  symmetry  and  antisymmetry  conditions  must  be  applied  at  such  a  wail.  The 
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lowest-order  condition  is  symmetric,  as  the  density,  temperature,  and  pressure  have  zero 
slope  at  the  wall.  The  tangential  velocity  for  free  slip  conditions  is  symmetric  but  the 
normal  velocity  is  antisymmetric.  The  guard-cell  values  of  variables  for  flow  against  a  wall 
are  given  in  Table  6.2. 


Table  6.2.  Free-Slip  Flow  Confined  by  an  Insulating  Hard  Wall 


Free  Slip  Hard  Wall*  Slope  Sebc  Value  Vebc 

Density,  Temperature,  and  Pressure: 

PG  —  pie  Sp  =  1  Vp  =  0 

Tg  =  Tie 
Pg  —  Pie 

Momentum  Parallel  to  Integration  Direction  (Perpendicular  to  Wall): 

Pgv\\g  -  ~Piev\\ie  Sy  =  -1  Vj|  =  0 

Momentum  Transverse  to  Integration  Direction  (Along  Wall): 

Pgv±g  =  Pievue  S±  =  1  VI  =  0 

Total  Fluid  Energy  Density: 

Eg  —  Eje  Se-  1  Ve  —  0 

Species  Number  Densities: 

w*,G  =  ik, IE  Si  =  1  Vi  =  0 


*  Subscript  G  refers  to  the  guard  cell,  either  cell  II  —  1  or  cell  IN  +  1.  Subscript  IE 
refers  to  the  boundary  or  end  cell  of  the  computational  domain,  Either  cell  / 1  or  cell 
IN,  for  the  particular  side  of  the  grid  being  considered. 


Sometimes  values  of  the  physical  variables  on  the  boundary  cannot  be  determined 
directly  by  applying  finite-difference  equations  with  symmetry  conditions.  It  is  often  nec¬ 
essary  to  develop  modified  boundary  formulas  that  depend  on  the  information  from  the 
interior.  This  allows  representation  of  more  physically  complex  situations  such  as  vis¬ 
cous  and  turbulent  boundary  layers.  The  extrapolation  formulas  generally  use  one-sided 
relations  where  interior  simulation  data  are  combined  with  phenomenological  exterior  or 
boundary  layer  data. 
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Boundary  Layers  and  Surface  Phenomenologies 

Boundaries  often  model  interfaces  between  two  different  phases  or  two  materials.  A  solid 
container  with  a  gas  inside  may  be  chemically  inert,  thermally  insulating,  absolutely  rigid, 
and  perfectly  smooth.  If  these  approximations  are  acceptable,  simplified  symmetry  and 
guard-cell  algorithms  can  be  used,  as  indicated  above.  Many  phenomena,  however,  depend 
on  the  nonideal  nature  of  the  boundaries. 

Analyses  of  numerical  boundary  layers  and  other  surface  models  fill  books  and  include 
subgrid  phenomenologies  for  representing  other  types  of  physics  not  generally  resolved  in 
the  simulation.  For  example,  catalytic  reactions  at  walls  and  thermal  boundary  layers  can 
be  modeled  by  surface  phenomenologies.  As  another  example,  when  heat  transfer  to  or 
from  a  wall  is  high  enough,  condensation,  evaporation,  or  even  ablation  can  occur. 

Developing  such  surface  phenomenologies  requires  satisfying  the  conservation  equa¬ 
tions  at  and  through  the  boundaries.  This  means  that  fluxes  of  mass,  momentum,  energy, 
and  enthalpy,  which  enter  or  leave  the  computational  domain  through  the  boundaries, 
must  exactly  equal  the  fluxes  to  the  exterior  world.  Causality  and  the  conservation  laws 
provide  constraints  in  these  problems.  For  example,  if  a  thermal  boundary  layer  forms  in 
a  gas  next  to  a  cold  metal  wall,  the  thermal  energy  moving  from  the  last  cell  into  the  wall 
should  not  exceed  the  thermal  capacity  of  that  cell.  If  the  temperature  scale  lengths  in 
the  gas  are  resolved  and  can  be  estimated  in  the  metal  wall,  simple  energy  interchange 
approximations  between  the  interior  cells  and  the  exterior  are  adequate  to  define  suitable 
interface  fluxes  in  the  LCPFCT  modules. 

If  catalytic  surface  reactions  are  occurring,  the  corresponding  boundary  condition 
must  estimate  the  amount  of  the  reactant  that  encounters  the  boundary  and  evaluate  the 
probabilities  of  each  possible  reaction  pathway.  When  the  grid  is  finely  resolved  at  the 
wall  so  that  molecular  diffusion  scale  lengths  can  be  resolved,  treating  the  wall  interaction 
is  relatively  straightforward.  When  the  cells  are  too  large,  however,  the  reacting  species 
seem  to  be  spread  throughout  the  last  two  or  three  cells  by  LCPFCT  even  though  they 
should  actually  be  concentrated  near  the  wall.  Thus  purely  surface  effects  will  appear  as 
volume  averages,  leading  to  spurious  numerical  rates. 

A  similar  effect  arises  from  viscosity.  The  usual  macroscopic  treatment  of  the  Navier- 
Stokes  equation  assumes  the  zero-slip  condition,  which  means  that  the  tangential  velocity 
at  the  wall  is  zero.  On  a  microscopic  scale,  molecules  rebounding  from  a  rigid  wall  are 
assumed  statistically  to  lose  memory  of  their  tangential  direction  prior  to  collision  with 
the  wall.  Thus  they  have  equal  probability  of  scattering  forward  or  backward  relative  to 
the  flow  of  the  fluid  far  from  the  wall.  A  thin  laminar  boundary  layer  forms  near  the  wall. 
From  the  macroscopic  fluid  point  of  view,  this  boundary  layer  develops  on  a  very  small 
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Figure  6.3  Schematic  of  a  grid  where  the  physical  boundary  layer  is  substantially  smaller 
than  the  computational  cell  adjacent  to  the  wall. 

spatial  scale  which  is  usually  very  expensive  to  resolve.  Again,  a  subgrid  phenomenology  is 
often  used  to  satisfy  the  physical  conditions  at  this  rigid  surface.  When  the  computational 
cells  are  large,  the  tangential  fluid  momentum  deficit  due  to  this  boundary  layer  is  small 
even  in  the  cells  adjacent  to  the  wall.  Not  much  fluid  is  slowed  down.  However,  some  fluid 
is  moving  at  almost  zero  velocity,  as  shown  in  Figure  6.3. 

The  normal  component  of  velocity  must  vanish  at  the  wall  on  both  the  macroscopic  and 
the  microscopic  scale,  a  condition  satisfied  by  an  ideal  symmetry  condition  in  LCPFCT. 
However,  in  a  viscous  fluid,  the  tangential  flow  at  the  surface  must  also  be  zero.  This 
additional  tangential  zero-slip  condition  is  a  complicating  factor  requiring  explicit  repre¬ 
sentation.  It  also  requires  resolution  of  the  viscosity  and  viscous  scales  or  a  good  “law  of 
the  wall”  phenomenology.  The  velocity  at  the  wall  is  rigorously  zero,  and  viscosity  diffuses 
the  momentum  deficit  from  the  boundary  layer  into  the  free  flow  further  from  the  wall.  To 
actually  resolve  this  boundary  layer,  very  small  cells  are  needed  normal  the  wall.  These 
small  cells,  in  turn,  impose  a  severe  timestep  restriction  unless  the  equations  are  integrated 
implicitly.  In  an  LCPFCT  calculation  based  on  a  primitive  variable  formulation,  the  drag 
at  the  wall  can  be  modeled  by  subtracting  momentum  from  the  fluid  near  the  boundary, 
extracting  just  the  right  amount  of  parallel  momentum  from  the  two  or  three  layers  of  cells 
adjacent  to  the  wall  every  timestep  so  that  the  velocity  at  the  wall  approaches  zero.  This 
mometum  deficit  can  in  turn  be  obtained  from  some  appropriate  boundary  layer  model. 


6.3  Continuitive  Boundary  Conditions  for  Unconfined  Domains 

Simulating  an  unconfined  flow  requires  representing  an  effectively  infinite  region  as  a  finite 
computational  domain.  The  boundary  conditions  must  transmit  information  to  and  from 
the  entire  outside  world,  properly  absorbing  any  signals  coming  from  the  computational 
domain.  Systems  coupled  to  an  exterior  domain  can  be  rigorously  computed  on  a  bounded 
domain  only  when  the  variables  and  coefficients  in  the  problem  become  constant  at  infinity. 
When  these  coefficients  are  not  constant,  approximations  are  always  needed,  and  there  will 
be  an  inaccuracies  having  nothing  to  do  with  the  accuracy  of  the  interior  methods. 

One  approach  is  to  map  the  infinite  region  into  a  finite  domain  by  analytically  re¬ 
defining  the  independent  spatial  variables.  The  problem  with  this  approach  is  that  finite- 
wavelength  components  are  not  resolved  properly  near  the  edges  of  the  transformed  grid. 
The  spatial  resolution  of  the  grid  becomes  inadequate  to  propagate  information  at  wave¬ 
lengths  of  interest  (see,  for  example,  Grosch  and  Orszag,  1977).  Another  approach  is  to 
truncate  the  simulated  domain  at  a  finite  distance  and  analytically  model  the  influence  of 
the  exterior  world  on  the  domain  boundaries.  The  shorter  wavelengths  can  now  propagate 
up  to  the  boundaries,  but  they  are  partially  reflected  in  a  nonphysical  way  if  an  exact 
analytic  condition  is  not  available. 

We  recommend  a  combination  of  these  approaches.  First,  the  cells  should  be  made 
progressively  larger  away  from  the  central  region  of  interest,  thereby  pushing  the  com¬ 
putational  problems  far  away.  By  stretching  the  cells  near  the  edges,  or  equivalently,  by 
making  them  small  only  in  regions  of  interest,  the  computational  domain  can  be  quite 
large  without  a  corresponding  increase  in  computer  storage.  Errors  still  arise  from  lack  of 
knowledge  of  the  solution  in  the  exterior  region.  However,  these  affect  the  solution  only 
weakly,  and  only  after  a  delay  for  the  numerical  boundary  condition  influences  to  reach  the 
central  region.  LCPFCT  was  specifically  formulated  to  allow  variable  cell  sizes,  but  the 
order  of  accuracy  decreases  in  regions  where  the  cells  are  changing  rapidly.  Cell  stretch¬ 
ing  should  be  limited  to  10-20%  per  cell  in  any  direction  to  control  these  inaccuracies. 
Multidimensional  cells  with  large  aspect  ratios  should  also  be  avoided  whenever  possible. 

In  a  problem  with  an  open  boundary,  analytic  or  phenomenological  models  can  be 
used  to  approximate  the  values  of  the  simulation  variables  in  the  region  outside  of  the 
computed  domain.  The  coefficients  appearing  in  Eq.  (6.1)  are  then  defined  using  these 
models  to  convey  the  desired  approximate  guard  cell  dependences  to  the  numerical  inte¬ 
gration  modules.  This  is  done  so  the  most  recently  computed  values  near  the  edge  of  the 
domain  can  be  combined  with  the  auxiliary  information  about  the  exterior  behavior  of 
the  solution  at  each  stage  of  the  integration.  In  this  way,  potentially  unstable  numerical 
extrapolation  off  the  edge  of  the  computational  domain  is  effectively  replaced  by  a  more 
stable  interpolation. 
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Subsonic  and  Supersonic  Inflow  Boundary  Conditions 

Inflow  boundary  conditions  are  often  as  difficult  to  implement  properly  as  outflow  boundary 
conditions,  even  though  it  would  seem  that  everything  is  in  fact  known  about  the  fluid 
entering  the  system.  These  difficulties  arise  because  there  are  characteristics  which  can 
move  outward  at  an  inflow  boundary  which  is  subsonic.  Thus  we  may  not  actually  be  in  a 
position  to  specify  everything  about  the  fluid  entering  the  system.  These  uncertainties  and 
errors  are  particularly  important  because  the  fluid  entering  the  system  with  errors  arising 
from  nonphysical  boundary  conditions  stays  resident  for  a  long  time.  Thus  the  errors  made 
on  inflow  boundaries  often  build  up  more  rapidly  and  pollute  the  solution  more  completely 
than  outflow  boundary  condition  errors. 

Table  6.3  summarizes  useful  choices  of  Sebc  and  Vebc  appearing  in  Eq.  (3.7)  that  can 
be  used  to  implement  subsonic  compressible  inflow  in  LCPFCT.  Many  variations  of  these 
choices  are  possible  and  may  actually  work  better  than  these  suggestions  for  particular 
flows  or  parameter  regimes.  Nevertheless,  because  we  have  been  able  to  perform  a  wide 
range  of  problems  more  than  adequately  with  these  choice,  we  recommend  at  least  trying 
them  in  your  application. 

The  physical  reasoning  behind  the  definitions  made  in  Table  6.3  is  to  specify  two  of  the 
three  inflowring  quantities  (in  one  dimension)  corresponding  to  the  two  fluid  characteristics 
entering  the  system.  The  two  quantities  chosen  are  the  incoming  mass  flux  and  fluid 
entropy.  This  allows  the  propagation  of  isentropic  pressure  pulses  (weak  acoustic  waves) 
upstream  into  the  oncoming  flow.  The  pressure  of  the  incoming  fluid  varies  so  there  is 
no  pressure  gradient  at  the  bounding  cell  interface.  This  requires  a  corresponding  change 
in  the  inflow  density.  This  density  variation  in  the  inflow  in  turn  requires  a  velocity 
change  to  keep  the  mass  flux  constant.  If  a  pressure  pulse  from  downstream  causes  the 
boundary  pressure  to  go  up,  the  incoming  fluid  compresses  and  slows  down.  The  incoming 
energy  density  is  computed  from  the  calculated  values  of  the  incoming  density,  velocity, 
and  pressure  (Table  6.3). 

This  combination  of  effects  appears  to  mimic  a  realistic  inflow  plenum  quite  well, 
preventing  numerical  effects  from  driving  large,  unphysical  waves  into  the  system  after  a 
long  time. 

Supersonic  inflow  boundary  conditions  are  somewhat  simpler  since  all  of  the  fluid 
characteristics  are  entering  the  system  from  the  guard  cell  and  can  therefore  be  assumed 
to  be  known.  The  velocity  and  pressure  at  the  supersonic  inflow  boundary  are  also  known 
so  all  of  the  input  to  the  VELOCITY  and  SOURCES  subroutines  are  known  and  the  slope 
boundary  condition  factors  in  the  calls  to  LCPFCT  are  set  to  zero. 
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Table  6.3.  Inflow  Boundary  Condition  Parameters  for  LCPFCT  (Pbc  •=. false.) 


Subsonic  Inflow  Conditions* 

Slope  Sebc 

Added  Value  Vebc 

Pressure  and  Mass  Density: 

Pq  =  Pie 

PG  =  Vp 

o 

II 

to" 

Vp  -  Pxnflow  (p4„'fow) 

Momentum  Density  Parallel  to  Integration  (normal  to  the  boundary): 

PGV\\a  =  PinflowV\\inflow 

S||  =0 

V||  =  Pin  flowV\\in  flow 

Momentum  Density  Tangential  to  Boundary  (along  the  boundary): 

PGVXG  =  Pin  flow  U-Ltn  flow 

II 

o 

Vi.  —  Pin flow^JLin  flow 

Total  Fluid  Energy  Density: 

Eg  =  Se  Eie  4-  Ve 

& 

II 

o 

Ve  =  +  |pg(vhg2  +  vx  g2) 

Supersede  Inflow  Conditions* 

Slope  Sebc 

Added  Value  Vebc 

Mass  Density,  Total  Fluid  Energy  Density: 

PG  —  Pinflow 

Sp  =  0 

Vp  =  Pinflotu 

Eq  =  Ein  flow 

o 

II 

to 

Ve  —  Ein  flow 

Momentum  Density  Parallel  to  Integration  (normal  to  the  boundary): 

PG^IIG  —  Pin  flowV\\in  flow 

V\l  —  PinflowVXinflow 

Momentum  Density  Tangential  to  Boundary  (along  the  boundary): 

PGVXG  —  PinflowVXinflow 

II 

o 

Vx  —  PinflowVXinflow 

*  Subscript  G  refers  to  the  guard  cell,  either  cell  /l  -  1  or  IN  +  1.  Subscript  IE  refers 
to  the  boundary  or  end  cell  of  the  computational  domain,  either  1 1  or  IN,  for  the 
particular  side  of  the  grid  being  considered.  The  quantities  subscripted  “inflow”  are 
specified  by  the  user  external  to  the  LCPFCT  modules. 

Subsonic,  Choked,  and  Supersonic  Outflow  Boundary  Conditions 

The  difficulty  with  outflow  boundary  conditions  is  nonphysical  reflection  of  characteristics 
which  should  leave  through  the  boundary.  In  all  but  the  simplest  linear  problems,  the 
boundary  algorithms  can  only  be  approximate  because  inward  and  outward  propagating 
waves  and  pulses  become  locally  indistinguishable  in  the  nonlinear  fluid  dynamic  equations. 
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Monotone  convection  algorithms  such  as  LCPFCT  can  extrapolate  the  flow  parameters  off 
the  edge  of  the  system  by  setting  guard-cell  values  as  described  in  section  (6.1).  In  two- 
or  three-dimensional  flows,  this  extrapolation  should  be  done  along  the  flow  lines  as  a 
better  approximation  to  following  the  characteristics  though  it  is  usually  done  normal  to 
the  boundary  to  comply  with  the  data  structure  and  logic  of  the  split-step  approximation 
to  multidimensions.  In  this  latter  case  it  makes  sense  to  differentiate  regions  where  the 
outflow  is  predominantly  normal  to  the  boundary  from  those  where  it  is  nearly  tangential. 

Extrapolation  is  often  unstable  in  linear  convection  algorithms  for  which  positivity 
is  not  guaranteed.  One  of  the  major  advantages  of  monotone  methods  is  their  ability 
to  operate  stably  and  reasonably  accurately  using  such  simplifications  of  characteristic 
analysis.  By  breaking  the  fluid  disturbance  into  its  constituent  characteristics,  however, 
and  extrapolating  each  of  these  out  to  the  guard  cells,  more  stable,  accurate  outflow 
conditions  are  obtained  even  for  monotone  convection  algorithms. 

Table  6.4  describes  simple  boundary  conditions  for  a  fluid  flowing  off  the  edge  of  a 
finite  computational  domain.  Used  with  a  monotone  method,  these  formulas  for  guard 
cells  take  into  account  the  continuity  of  flow  in  the  vicinity  of  the  boundary.  The  quantity 
r  is  a  characteristic  time  for  relaxation  of  the  pressure  to  its  ambient  value  at  infinity,  for 
example  a  characteristic  system  size  divided  by  the  average  sound  speed.  The  lowest-order 
extrapolation  for  guard-cell  values  uses  the  adjacent  cell  values  for  the  corresponding  guard 
cells.  That  is,  r  =  oo.  The  next  higher-order  extrapolation  uses  the  two  cells  just  inside  the 
boundary  to  extrapolate  linearly  to  the  guard  cells.  The  values  of  the  variables  at  or  near 
infinity,  such  as  poo,  feed  information  about  the  external  world  into  the  computational 
domain.  Without  these  terms,  that  is,  with  r  —  oo,  a  simulation  cannot  relax  to  the 
asymptotic  pressure,  and  this  leads  to  growing  errors. 

Conditions  for  Flow  Roughly  Parallel  to  an  Open  Boundary 

There  is  a  final  case  to  be  considered  which  occurs  when  the  boundary  of  the  computational 
domain  is  physically  unconfined  and  the  flow  at  infinity  is  roughly  parallel  to  the  boundary. 
This  is  neither  the  inflow  nor  the  outflow  situation  as  described  in  the  two  subsections 
because  the  actual  fluid  velocity  perpendicular  to  the  boundary  is  neither  predominantly 
inward  nor  predominantly  outward.  Depending  on  fluctuations  and  sound  waves  near  the 
boundary  the  fluid  could  either  “breathe”  in  or  out  so  the  relative  value  of  the  tangential 
velocity  is  zero  and  yet  the  expected  momentum  and  kinetic  energy  of  the  fluid  are  quite 
large.  In  this  case  the  LCPFCT  routines  should  be  employed  with  the  boundary  condition 
parameters  as  defined  in  Table  6.5. 
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Table  6.4.  Outflow  Boundary  Condition  Parameters  for  LCPFCT  ( Pqc  =.false.) 


*  Subscript  G  refers  to  the  guard  cell,  either  cell  II  -  1  or  IN  +  1.  Subscript  IE 
refers  to  the  boundary  or  end  cell  of  the  computational  domain,  either  II  or  IN,  for 
the  particular  side  of  the  grid  being  considered.  The  quantities  subscripted  “oo”  are 
specified  by  the  user  external  to  the  LCPFCT  modules  and  represent  the  ambient 
fluid  variables  far  from  the  boundary  in  question. 


Table  6.5.  Parallel  Flow  Open  Boundary  Parameters  for  LCPFCT  {Pbc  =  0) 


Parallel  Open  Boundary  Flow*  Sebc  Vebc 

Tangential  Velocity  and  Pressure  at  Interface: 

v\\interface  585  ^||  IE  Pinter  face  —  PfE 

Mass  Density,  Species  Number  Densities: 

PG  =  SpPlE  +  Vp  ‘S'p  =  [1  -  ■“]  Vp  =  ~~ P external 

where  r  is  the  relaxation  time  constant  of  p  to  pextemai 
Momentum  Density  Parallel  to  Integration  (normal  to  the  boundary): 

PGV\\G  ==  PIEV\\IE  5||  =  [1  -  ^]  Vj|  =  ~ P external^ \\extemal 

Momentum  Density  Tangential  to  Boundary  (along  the  boundary): 


PV±G  =  PIEV±IE 

rH 

II 

V±  =0 

Total  Fluid  Energy  Density: 

Eg  =  Se  Eie  4-  Ve 

&  =  [!-*] 

Ve  =  E external 

Different  values  of  r  may  be  appropriate  for  density,  momentum,  energy,  etc. 

*  Subscript  G  refers  to  the  guard  cell,  either  cell  II  —  1  or  IN  + 1.  Subscript  IE  refers 
to  the  boundary  or  end  cell  of  the  computational  domain,  either  II  or  IN ,  for  the 
particular  side  of  the  grid  being  considered.  The  quantities  subscripted  “external”  are 
specified  by  the  user  before  calling  the  LCPFCT  module  and  represent  the  value  of 
the  fluid  variables  external  to  the  boundary  in  question. 
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7.  ADDITIONAL  INFORMATION 


This  section  discusses  some  additional  information  about  the  use  of  the  LCPFCT  package 
which  may  be  of  use  in  some  situations  and  which  should  help  to  extend  a  user’s  un¬ 
derstanding  of  the  algorithms  and  the  implementation  presented  here.  Topics  considered 
are  additional  routines,  more  about  boundary  conditions  through  the  use  of  the  subrou¬ 
tines  ZEROFLUX  and  ZERODIFF,  flexibility  in  choosing  interface  averages,  and  a  brief 
discussion  of  things  an  advanced  user  might  want  to  try  with  the  flux-correction  formula. 

There  are  a  several  additional  subroutines  in  the  LCPFCT  package  which  provide 
flexibility  but  do  not  necessarily  have  to  be  fit  into  the  normal  sequence  of  FCT  calls. 

RESIDIFF  (  DIFFA  )  allows  the  user  to  add  a  small  amount  of  residual  diffusion  to 
the  solution  by  making  the  effective  antidiffusion  coefficients  }  ( MULH  in 
FCT-VELO)  be  slightly  smaller  that  the  diffusion  coefficients  }  (NU LH ).  To 
do  this  in  LCPFCT,  the  magnitude  of  the  sign  function  array,  called  FSGN  in  Do 
2,  need  not  be  exactly  unity.  A  smaller  value,  for  example  the  default  value  0.999,  is 
transferred  to  the  antidiffusion  coefficients  and  allows  a  slight  residual  diffusion  that 
helps  maintain  smoother  solutions  for  systems  of  gas  dynamic  equations.  DIFF1 
is  carried  in  common  block  FCT-MISC  and  can  be  changed  by  a  call  to  subroutine 
RESIDIFF,  whose  only  argument  is  the  new  value  of  DIFF1.  The  value  of  DIFFl 
stays  at  the  newly  set  value  until  a  new  call  to  RESIDIFF  is  made.  This  facility  is 
employed  in  a  couple  of  the  test  problems.  The  value  of  DIFFl  is  defaulted  to  0.999 
in  a  block  data  initializing  routine  and  values  less  than  0.99  are  not  recommended. 
In  some  applications  where  very  small  Courant  numbers  are  expected,  this  may  lead 
to  appreciable  numerical  diffusion  in  some  regions  and  the  user  may  want  to  be  set 
DIFFl  to  unity  by  calling  RESIDIFF  (  1.0000  ),  as  is  done  in  the  constant  velocity 
convection  tests  reprinted  in  Appendic  B  and  discussed  in  the  next  section.  This  call 
can  also  be  used  to  deliberately  introduce  some  linear  second-order  diffusion  to  mimic 
the  effect  of  viscosity.  Since  the  nonlinear  flux  correction  will  leave  additional  dissi¬ 
pation  in  some  regions,  however,  the  user  must  remember  that  the  residual  diffusion 
may  not  be  all  that  is  present. 

COPYGRID  (  MODE,  II,  IN  ),  with  MODE  =  1  is  used  to  put  aside  a  copy  of  all  the 
grid  variables  generated  by  the  last  call  to  MAKEGRID.  The  arrays  are  copied  into 
another  named  common  block  called  OLD-GRID  for  subsequent  reuse  after  some  or 
all  of  these  values  may  have  been  changed.  Calling  COPYGRID  with  MODE  —  2 
then  subsequently  restores  all  the  values  from  cell  II  to  cell  IN  including  the  first 
and  last  interfaces.  While  MAKEGRID  could  always  be  called  to  reset  the  grid, 
restoration  from  the  copied  values  could  save  considerable  computation  -  particularly 
if  the  computation  of  the  interface  locations,  areas,  or  cell  volumes  is  expensive.  An 


56 


example  of  where  this  is  useful  is  a  two-dimensional  simulation  where  the  grid  is 
moving.  Each  of  the  NY  rows  needs  to  have  MAKEGRID  called  before  the  half  step 
and  NEW-GRID  (below)  called  to  change  the  grid  locations  to  those  appropriate  to 
the  end  of  the  timestep.  COPYGRID  could  then  be  used  to  restore  the  grid  to  its 
condition  before  the  most  recent  call  to  NEW  .GRID  and  prior  to  beginning  integration 
of  the  next  row.  It  is  also  used  in  conjunction  with  SET-GRID  to  calculate  cell  volumes 
more  efficiently  when  angular  coordinates  are  being  used. 

NEW -GRID  (  RADR,  II,  INP  )  performs  the  same  function  as  MAKEGRID  but  is 
somewhat  faster  because  the  old  values  of  the  cell  interface  locations,  RADHO,  and 
all  the  variables  which  depend  only  on  RADHO  are  assumed  unchanged  since  the 
last  call  to  MAKEGRID.  This  means  that  a  number  of  quantities  do  not  have  to  be 
recalculated.  This  facility  is  useful,  for  example,  when  a  moving  grid  at  the  end  of  a 
complete  timestep  differs  from  the  grid  at  the  end  of  the  half  step  but  both  integrations 
start  from  the  same  ‘old’  grid. 


SET-GRID  (  FACTOR,  II,  IN  )  is  used  when  a  multidimensional  FCT  model  has  one 
of  the  dimensions  as  an  angular  coordinate.  In  two  dimenions  it  allows  more  efficient 


treatment  of  terms  of  the  form 


1  dp 
rd$ 


(7.1) 


where  r  and  6  are  the  orthogonal  radial  and  angular  coordinates.  For  such  a  term, 
a  cell  area  can  be  treated  as  a  constant  independent  of  radius,  and  a  cell  volume  is 
proportional  to  radius,  A*  =  r,(0i+^  -  0*-$),  where  r,  is  the  radius  of  the  jth  row 
and  0i+^  is  the  angle  of  the  ith  cell  interface.  In  spherical  coordinates  the  angle  6 
is  replaced  by  (  =  cosB  with  d(  =  sinddO  to  obtain  the  equivalent  ‘Cartesian-like’ 
coordinate.  The  integration  in  the  6  direction  is  performed  with  ALPHA  set  equal 
to  one  in  the  call  to  MAKEGRID.  This  call  is  located  outside  the  loop  over  radius. 
Provisional  cell  volumes  which  are  computed  as  the  differences  of  the  6 ’s  are  stored 
in  the  arrays  LOP  and  LNP  and  are  contained  in  common  block  OLD_GRID  when 
COPYGRID  is  called  with  MODE  =  1.  Inside  the  loop  over  radius  SET-GRID  must 
be  called  with  the  argument  RADR  being  the  mean  radius  of  the  cell  j  and  with  J1 
and  IN  being  the  first  and  last  cells  to  be  integrated.  SET-GRID  will  multiply  the 
terms  by  the  current  cell  radius  ry.  This  includes  the  radial  effect  in 
the  cell  volume  calculation  with  only  a  single  multiply  for  each  row.  This  provides 
significant  savings  in  the  computational  effort  for  obtaining  cell  volumes  for  each  jth 
row. 


In  Section  5  we  discussed  two  routines  called  ZEROFLUX  and  ZERODIFF  which 
modify  the  velocity  dependent  coefficients  for  certain  specific  boundary  conditions  where 
no  fluxes  or  no  diffusion  across  certain  interfaces  can  be  allowed  on  physical  grounds. 
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These  requirements  usually  apply  at  the  ends  of  the  computational  domain  but  there  are 
circumstances,  for  example  at  a  Lagrangian  interface  between  two  different  materials  or 
phases,  where  no  flux  of  mass  can  be  allowed  in  the  frame  of  reference  moving  with  the 
fluid.  In  this  case  ZEROFLUX  ( Interface  )  is  called  where  ‘Interface’  is  the  Index  of  the 
interface  separating  the  two  phases,  for  example  air  and  water.  ZEROFLUX  is  also  used 
at  ideal  solid  walls  to  ensure  that  absolutely  no  flux  into  or  out  of  the  wall  is  allowed.  By 
calling  ZEROFLUX  just  before  a  particular  continuity  equation  is  solved,  fluxers  through 
the  interface  are  permitted  for  all  of  the  previously  integrated  equations. 

ZERODIFF  was  designed  to  treat  a  slightly  different  problem:  it  turns  off  the  diffusion 
and  antidiffusion  fluxes  at  chosen  cell  interfaces  without  affecting  the  convective  fluxes. 
This  can  be  used  where  there  is  a  physically  correct  convective  flux  but  where  the  numerical 
diffusion  and/or  antidiffusion  would  result  in  non-physical  behavior.  This  routine  should  be 
used  for  supersonic  outflow  conditions  where  the  diffusion  (or  antidiffusion)  might  otherwise 
move  some  mass,  momentum,  or  energy  upstream  in  the  flow.  At  inflows  where  the 
incoming  fluxes  are  known,  the  guard  cell  values  may  not  be  exactly  equal  to  the  computed 
values  just  inside  the  mesh.  There  ZERODIFF  is  also  used  to  ensure  that  the  diffusion  and 
antidiffusion  terms  can  not  change  the  prescribed  fluxes  entering  the  system.  Examples 
using  these  routines  are  seen  in  the  test  problems  and  indicated  in  Tables  5.6-5.8. 

As  indicated  repeatedly  in  the  text,  the  LCPFCT  routines  rely  on  interface  averaged 
quantities  as  inputs  in  several  places.  There  is  a  great  deal  of  freedom  in  computing  these 
averages  from  the  cell  values  on  either  side  of  the  interface.  In  calculating  the  interface 
velocities,  for  example,  the  simple  calculation, 


Vi  +  Vj-l 
2 


could  as  well  be  computed  as 


_  PiVj  +  Pi-lVj-l 
Pi  +  Pi- 1 


(7.2) 


(7.3) 


This  density- weighted  average  in  Eq.  (7.3)  is  equivalent  to  calculating  the  velocity  at  the 
interface  from  the  average  momentum  divided  by  the  average  density. 


There  are  infinitely  many  choices  for  these  averages  and  there  seems  to  be  no  com¬ 
pelling  reason  why  {P^},  and  {{Pv)t_^}  all  have  to  be  computed  the 

same  way.  In  Appendix  C,  Subroutine  GASDYN  performs  these  averages  for  LCPFCT 
Tests  #2,  #3,  and  #4  in  yet  another  way.  In  the  Do  200  loop,  an  inverse  density  weight¬ 
ing* 

Pi- *  =  (7-4) 

*  Pi  +  Pi-1 
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is  used  not  only  for  the  pressure  at  the  interfaces  but  also  for  the  velocities  and  the  pressure- 
velocity  product.  This  is  physically  equivalent  to  calculating  the  pressure  at  the  interface 
from  the  average  of  the  squares  of  the  sound  speed  in  the  two  adjacent  cells.  The  higher 
the  sound  speed  the  faster  pressure  is  communicated  so  this  choice  in  Eq.  (7.4)  makes  as 
much  physical  sense  as  the  simple  average  in  Eq.(7.2)  or  the  density  weighted  average  in 
Eq.  (7.3).  In  GASDYN  the  equations  implementing  the  simple  average  of  Eq.  (7.2)  are 
also  included  as  comments  following  the  Do  200  loop  in  case  the  user  wants  to  do  a  little 
experimenting. 

In  Subroutine  VELOCITY  there  is  also  appreciable  flexibility  possible  in  choosing 
}  and  the  diffusion  and  antidiffusion  coefficients  NULH  and  MULH.  The 

calculation  involving  SCRH  is  not  strictly  necessary  but  seems  to  improve  the  quality 
of  the  solutions  of  the  convection  test  problem  (Appendix  B)  a  little  without  degrading 
the  quality  of  the  other  three  test  problem  solutions.  SCRH  subtracts  a  very  small 
fourth-order  velocity  correction  from  the  diffusion  and  then  increases  both  the  diffusion 
and  antidiffusion  by  the  same  small  second  order  amount.  This  latter  correction  has  no 
effect  on  the  residual  diffusion  of  the  algorithm  but  changes  the  pahse  errors  slightly, 
improving  and  symmetrizing  the  solutions  for  all  three  convection  profiles.  By  setting 
SCRH  identically  to  zero,  the  user  can  verify  that  the  absolute  error  measures  of  the 
convection  problems  do  indeed  increase. 

In  addition  to  the  straightforward  application  of  the  LCPFCT  routines,  there  are  some 
tricks  which  help  to  give  better  solutions  when  the  numerics  are  being  stressed  very  hard. 
One  of  these  is  the  use  of  minimum  values.  It  is  generally  useful  if  the  pressure  is  limited 
from  below  to  be  no  smaller  than  some  minimum  value  in  computing  the  source  terms  for 
the  momentum  and  energy  equations  in  gas  dynamic  problems.  This  value  is  generally 
chosen  to  be  one  order  of  magnitude  less  than  the  smallest  pressure  that  is  physically 
expected.  This  prevents  extreme  undershoots  in  pressure  occur  iugin  problems  involving 
strong  shock  waves.  Also,  when  computing  the  velocity  by  dividing  the  fluid  momentum 
by  the  density  it  is  sometimes  helpful  to  limit  the  value  of  the  density  used  in  the  divisor  to 
some  minimum  value.  These  ad  hoc  fixes  are  helpful  because  while  the  primary  variables 
being  integration  by  LCPFCT  are  guaranteed  to  be  monotonic,  the  derived  quantities  such 
as  velocity  and  pressure  may  not  be  monotone  in  the  vicinity  of  steep  gradients  such  as 
occur  naturally  at  shocks.  The  effect  of  the  use  of  these  minimum  values  is  highly  localized 
since  global  conservation  of  the  conserved  quantities  is  still  being  maintained. 
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8.  TEST  PROBLEMS 


In  this  section  we  describe  four  test  problems  that  illustrate  the  application  and  capabilities 
of  LCPFCT  and  provide  benchmarks  of  the  algorithms.  A  complete  listing  of  the  LCPFCT 
subroutines  is  given  in  Appendix  A.  The  four  test  programs  and  selected  reference  outputs 
are  given  in  Appendices  B,  C,  D,  and  E. 

1.  The  first  test  program,  Appendix  B,  shows  tests  of  linear  convection  with  a  fixed 
uniform  velocity.  Three  different  density  profiles  are  convected,  a  discontinuous  square 
wave  profile,  a  Demicircular  profile,  and  a  Gaussian  peak  profile.  The  program  uses 
either  the  LCPFCT  routine  or  the  CNVFCT  routine  for  this  test;  they  are  identical 
in  the  limit  that  the  velocity  field  is  constant. 

2.  The  second  test  program  propagates  an  ideal,  one-dimensional,  Rankine-Hugoniot 
shock  through  a  gas  with  7  =  1.4.  This  program,  listed  in  Appendix  C,  demonstrates 
the  coupling  of  several  continuity  equations  to  solve  a  standard  gasdynamic  problem. 

3.  The  third  test  program,  Appendix  D,  simulates  a  one-dimensional  exploding  di¬ 
aphragm  (in  a  shock  tube).  This  problem  shows  another  example  of  gasdynamics 
with  different  boundary  conditions  and  illustrates  FCT’s  dynamic  grid  features. 

4.  The  fourth  test  program  is  two  dimensional  and  simulates  the  flow  following  the 
bursting  of  a  diaphragm  halfway  up  a  finite  length  barrel.  This  program,  in  Appendix 
E,  demonstrates  the  time  splitting  multidimensional  implementation  of  LCPFCT  on 
a  geometrically  complex  domain  and  uses  a  simple  extrapolated  outflow  condition. 

For  each  test  problem,  we  provide  the  driver  program  and  selected  printed  outputs  to 
five  significant  digits.  This  provides  the  basis  for  a  fairly  complete  detection  of  any  errors 
which  might  creep  as  the  program  is  transferred,  copied,  or  due  to  any  Fortran  or  computer 
system  incompatibilities.  The  five-digit  printout  comparisons  should  typically  be  adequate 
for  validation  on  any  computer  with  32-bit  or  greater  accuracy. 

8.1  Constant  Velocity  Convection  -  LCPFCT  Test  #1 

The  first  test  program  convects  three  different  density  profiles  across  a  uniform  grid  at 
a  constant  velocity  with  periodic  boundary  conditions.  The  three  density  profiles  chosen 
are  a  square  wave  (top-hat  profile)  20  cells  across,  a  semicircular  density  profile  with  a 
radius  (called  WIDTH)  of  10  cells,  and  a  Gaussian  peak  with  a  characteristic  half  width 
of  five  cells.  These  are  all  standard  profiles  for  comparing  numerical  convection  algorithms. 
The  system  length,  NX ,  is  50  cells,  the  constant  convection  velocity,  VELX  =  1.0,  and 
the  calculation  is  carried  out  for  MAXSTP  =  500  timesteps  with  DT  —  0.2  and  DX  = 
1.0.  Thus  the  nondimensional  Courant  number,  c  =  VELX  x  DT/DX  =  0.2,  is  40% 
of  the  maximum  allowed  by  this  FCT  algorithm.  The  standard  run  is  long  enough  for 
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Figure  8.1  Results  of  the  convection  tests  with  LCPFCT  on  a)  square  wave  profile,  b) 
circular  arch  profile,  and  c)  gaussian  peak  profile  after  250  and  500  timesteps  with  a 
Courant  number  of  0.2. 
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the  density  profiles  to  travel  across  the  mesh  twice,  coming  back  to  the  initial  position 
each  time  because  periodic  boundary  conditions  are  used.  This  type  of  calculation  with 
periodic  boundary  conditions  is  a  good  test  of  the  algorithm’s  numerical  fidelity  because 
the  successive  profiles  should  exactly  overlay  each  other. 

Listings  of  the  program  used  to  generate  these  results  along  with  the  printed  outp  t 
at  steps  125  and  500  are  given  in  Appendix  B.  The  printed  solutions  labeled  as  ‘exact’  at 
step  500  are  also  the  initial  conditions  for  each  of  the  profiles.  These  results  for  the  three 
different  test  profiles  are  also  shown  in  Figure  8.1  for  steps  250  and  500  overlaid  on  the 
initial  conditions.  The  quantities  marked  ‘absolute  error’  at  the  bottom  of  the  printouts 
are  the  sum  of  the  absolute  values  of  the  differences  between  the  computed  solution  and 
the  exact  solution  normalized  by  the  conserved  sum  of  the  density  values  for  each  of  the 
profiles.  The  exact  (analytic)  solution  is  found  by  following  a  translating  grid  on  which  the 
solution  remains  exact  and  performing  a  simple  numerical  integration  to  get  the  correct 
average  of  the  chosen  profile  over  each  cell. 


Figure  8.2  Convecting  the  square  wave  profile  using  LCPFCT  with  enhanced  antidiffu- 
sion.  The  values  of  the  coefficients  MULH  in  common  block  FCT.VELO  have  been  in¬ 
creased  2%.  The  density  profile  after  250  and  500  timesteps  of  convection  with  a  Courant 
number  of  0.2  is  overlaid  on  the  initial  conditions. 


A  linear  convection  algorithm  has  amplitude,  phase,  and  Gibbs  errors  which  cause 
the  numerical  solution  to  deviate  from  the  expected  theoretical  solution.  Since  FCT  is 
intrinsically  nonlinear,  these  three  types  of  errors  are  mixed  together,  reappearing  as  profile 
‘rounding,’  ‘terracing,’  and  ‘clipping.’  The  solutions  shown  in  Figure  8.1  illustrate  these 
three  different  types  of  error.  Because  of  the  particular  test  profiles  chosen,  each  of  these 
types  of  error  is  best  illustrated  by  a  different  profiles.  The  comers  of  the  square  wave  are 
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‘rounded’  somewhat  to  generate  a  modified  profile  that  propagates  essentially  unchanged. 
In  the  semicircular  profile,  a  small  ‘terrace’  forms  around  cell  25  where  phase  errors  deform 
the  shape  of  the  convected  profile  somewhat  until  a  new  maximum  begins  to  appear  where 
the  slope  is  relatively  small.  This  new  extremum  is  prevented  by  the  antidiffusive  flux 
limiter,  leading  to  the  terrace.  In  the  gaussian  peak  problem,  the  rather  sharp  peak  is 
‘clipped’  off.  The  diffusion  stage  reduces  the  height  of  the  two  highest  points  and  then  the 
flux  corrector  prevents  the  antidiffusion  flux  from  reconstituting  these  peaks. 


X  at  cell  interfaces 

Figure  8.3  Results  of  the  convection  tests  with  LCPFCT  on  the,  a)  semicircular  density 
profile,  and  the  b)  gaussian  peak  density  profile  after  250  and  500  timesteps  with  a  Courant 
number  of  0.2.  The  values  of  the  coefficients  MU LH  in  common  block  FCT.VELO  have 
been  increased  2%. 


It  is  difficult  to  do  anything  about  the  phase  errors  at  short  wavelength  which  lead, 
in  particular,  to  the  terracing  effect  but  it  is  tempting  to  try  to  reduce  the  rounding  and 
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clipping  by  modifying  with  the  amount  and  conditions  of  the  flux-correction  procedure.  For 
example,  the  antidiffusion  coefficients  in  the  LCPFCT  algorithm  can  be  increased  slightly 
by  multiplying  the  NX  -1- 1  values  of  jtft+i/2  (MU LH)  by  a  value  slightly  larger  than  unity. 
This  makes  the  linear  algorithm  slightly  unstable  but  improves  the  fidelity  of  physically 
discontinuous  or  nearly  discontinuous  solutions  significantly,  as  seen  in  Figure  8.2  for  the 
square  wave  profile.  In  Figure  8.2  the  number  of  zones  in  the  numerically  approximated 
discontinuity  is  2  or  3  while  it  is  4  or  5  in  Figure  8.1a.  Further  there  is  virtually  no 
additional  rounding  evident  between  steps  250  and  500  in  Figure  8.2. 

Some  monotone  methods  employ  ‘contact  surface  steepeners’  such  as  just  described  in 
regions  of  flow  where  contact  surfaces  can  be  identified.  These  techniques  should  be  used 
with  caution,  however,  because  their  long  term  numerical  stability  depends  totally  on  the 
nonlinear  action  of  the  flux  corrector.  Figure  8.3  shows  the  results  of  using  this  approach 
on  the  second  and  third  profiles  which  are  not  as  discontinuous  as  the  square  wave.  It 
can  be  seen  that  enhancing  the  antidiffusion  trys  to  turn  even  smooth  profiles  into  square 
waves.  The  terracing  is  enhanced  significantly  in  Figure  8.3a  and  the  clipping  is  much  more 
extreme  in  Figure  8.3b.  The  bases  of  the  profiles  are  pulled  in  and  the  tops  broadened  out 
while  still  conserving  the  total  integral  under  the  curve  and  the  mean  position  of  the  fluid. 


8.2  Progressing  One  Dimensional  Gasdynamic  Shock  -  LCPFCT  Test  #2 
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Figure  8.4  Schematic  diagram  showing  the  one-dimensional  geometry  and  key  initial 
parameters  for  the  Progressing  Shock  Test  and  the  Bursting  Diaphragm  Test. 


In  one  dimension  the  equations  of  ideal  gasdynamics  can  be  written  as  three  nonlinearly 
coupled  continuity  equations.  In  Section  4  we  showed  how  LCPFCT  can  be  used  to  solve 
each  of  these  continuity  equations  through  a  structured  sequence  of  calls.  Appendix  C, 
which  contains  the  Fortran  program  conducting  this  progressing  shock  test,  also  includes 
a  subroutine  called  GASDYN  which  captures  this  series  of  calls  to  LCPFCT  and  its  sup- 
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Figure  8.5  Velocity  profiles  at  intervals  of  50  timesteps  from  the  LCPFCT  Progressing 
Shock  Test  -  Problem  #2.  The  shock  velocity,  VO,  was  chosen  as  3.0  so  the  shock  moves 
7.5  cells  in  each  interval. 

porting  routines.  GASDYN  can  be  used  in  a  number  of  circumstances  including  Tests  #3 
and  #4  below. 

Figure  8.4  shows  the  initial  configuration  for  a  progressing  shock  problem.  The  shock 
moves  in  the  positive  X  direction  with  a  velocity  VO  =  3.0.  The  fluid,  entering  the  system 
on  the  right  at  velocity  VELAMB  =  —2.9161,  is  a  Mach  5  flow  relative  to  the  oncoming 
shock.  The  ambient  (preshock)  density  is  RHOAMB  =  1.0  and  the  corresponding  pressure 
is  PREAMB  =  1.0.  Inside  the  shocked  region,  initialized  to  the  left  of  interface  11  in  this 
case,  the  fluid  conditions  are  VELJN  =  1.8168,  RHOJN  =  5.0,  and  PREJN  =  29.0. 
In  this  progressing  shock  test  program  and  the  one  for  the  bursting  diaphragm  discussed 
below,  a  fourth  variable  RVTN,  denoting  an  unused  transverse  momentum,  is  initialized 
to  zero.  This  variable  is  important  in  two-dimensional  flows  and  allows  GASDYN  to  be 
used  as  well  for  Test  #4,  the  two-dimensional  “muzzle  flash”  problem.  The  boundary 
conditions  chosen  are  of  type  4  for  the  calls  to  GASDYN,  meaning  that  fixed,  known 
values  axe  enforced  on  the  guard  cell  variables  and  thus  allowed  to  enter  the  conoutational 
domain.  The  system  is  IVY  =  50  cells  long  and  DELTAX  =  1.0.  The  timestep  DELT AT 
is  fixed  at  0.05. 

The  ideal  propagating  shock  is  self  steepening  so  its  computation  using  LCPFCT 
reaches  a  limiting  profile  as  it  moves  across  the  grid.  This  profile  is  physically  correct 
and  numerically  stable  though  it  is  not  completely  steady  in  time.  Since  the  location 
of  the  shock  relative  to  the  cell  center  changes  from  one  step  t_-  the  next,  the  profile 
changes  slightly.  Small  fluctuations  arise  as  the  shock  progresses  from  one  cell  to  the  next, 
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depending  on  the  one  or  two  cells  involved  in  the  transition  from  the  pre-shock  to  the 
post-shock  conditions  and  exactly  where  in  the  cell  the  shock  resides. 

The  outputs  reproduced  in  Appendix  C,  step  0  (f  =  0.0),  step  150  (t  =  7.5),  and  step 
200  (t  =  10.0),  show  that  the  pressure  and  velocity  have  small  nonmonotone  undershoots 
of  order  0.1%  just  in  front  of  the  shock.  This  error  is  so  small  that  the  effect  cannot  be 
seen  in  Figure  8.5.  It  occurs  because  the  shock  is  so  steep  that  the  energy  density  and 
momentum  density  transitions  only  have  to  get  a  little  bit  out  of  phase  for  quantities 
derived  from  two  or  more  of  the  primary  conserved  variables,  like  the  pressure  or  the 
velocity,  to  show  structure  not  seen  in  the  primary  variables  themselves.  There  has  been  a 
substantial  amout  of  work  over  the  years  concerned  with  such  issues  for  algorithms  where 
the  effects  are  orders  of  magnitude  worse.  In  most  circumstances  where  the  unwanted 
effects  are  very  small,  as  in  the  cases  here,  the  cure  can  be  worse  than  the  disease. 


8.3  One-Dimensional  Bursting  Diaphragm  Problem  -  LCPFCT  Test  #3 

The  bursting  diaphragm  test,  also  illustrated  in  Figure  8.4,  solves  the  ideal  one-dimensional 
equations  of  gas  dynamics  for  the  classical  shock  tube  problem:  an  initial  condition  in  which 
two  uniform  perfect  gases  at  rest  are  separated  by  a  diaphragm  which  breaks  cleanly  and 
instantaneously  at  time  zero.  The  region  to  the  left  of  the  interface  at  MX  +  1  =  61 
consists  of  a  gas  at  10  times  the  pressure  on  the  right  but  at  the  same  density.  That 
is,  RHOAMB  =  RHOJN  =  PREAMB  =  1.0,  PREJN  =  10.0,  and  VELAMB  = 
VELJN  =  0.0.  The  system  has  NX  =  100  cells  with  DELTAX  =  1.0  initially.  In  this 
test,  the  grid  is  adaptively  changed  in  time  as  described  below. 

The  boundary  conditions  chosen  are  of  type  1  for  the  call  to  GASDYN  specifying 
ideal  hard  reflecting  end  walls.  Since  the  gridding  is  such  that  the  solution  does  not  reach 
either  end  of  the  computational  domain  and  the  external  solutions  on  the  right  and  left  are 
constant  states,  this  choice  is  not  unique  or  even  important.  The  timestep  was  held  fixed 
at  DELTAT  —  0.05  because  the  grid  variations  are  relatively  small.  Tabulated  results  are 
printed  at  steps  0,  100,  200,  and  1600  in  Appendix  D.  These  include  times  before  and  after 
the  grid  stretching  is  started  and  show  the  approach  to  the  expected  theoretical  similarity 
solution.  Listings  of  the  test  program  are  also  given  in  Appendix  D. 

Figure  8.6a  shows  the  computed  density  profiles  ( RHON )  at  times  5.0  (step  100),  7.5 
(step  150),  and  10.0  (step  200)  before  the  grid  has  begun  to  expand  adaptively  with  the 
solution.  This  initial  transient  has  four  flow  characteristic  surfaces  forming  from  the  single 
diaphragm  discontinuity  and  separating.  They  bound  three  distinct  broadening  regions 
which  only  become  well  resolved  after  some  time.  In  the  figure  the  rightmost  region,  lead 
by  a  shock  and  followed  by  a  contact  surface,  moves  off  to  the  right  and  is  centered  around 
X  =  20  at  time  10.0  when  the  grid  stretching  is  begun.  Figure  8.6b  shows  four  of  the 
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Figure  8.6  Evolution  of  the  mass  density  profile  for  the  bursting  diaphragm  problem, 
LCPFCT  Test  #3.  a)  Initial  transient  evolution  on  a  ‘fixed’  grid,  b)  Evolution  on  an 
expanding  grid  showing  approach  to  the  analytic  similarity  solution. 


density  profiles  at  times  10.0  (step  200),  20.0  (step  400),  40.0  (step  800),  and  80.0  (step 
1600).  At  the  beginning  of  this  sequence  (step  200),  the  grid  begins  to  linearly  stretch  at 
a  rate  of  V/X  =  .0775  which  causes  the  various  characteristic  surfaces  in  the  flow  to  come 
to  rest  in  the  stretching  grid.  A  look  at  the  program  in  Appendix  D  will  show  how  this  is 
implemented  using  MAKEGPID. 
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Figure  8.7  a)  X  momentum  density  ( RVXN )  and  b)  energy  density  ( ERGN )  shown  at 
timesteps  200,  400,  800  and  1600  after  grid  expansion  has  begun.  The  horizontal  axis  is 
the  similarity  variable  acheived  by  expanding  the  grid. 


Figure  8.7  shows  that  same  convergence  of  four  computed  solutions  toward  the  ex¬ 
pected  similarity  solution  for  the  momentum  density  (RVXN)  and  the  energy  density 
(ERGN).  The  terracing  exhibited  by  the  early  solutions  in  the  rarefaction  wave  region 
to  the  left  of  the  initial  location  of  the  diaphragm  has  almost  disappeared  as  the  solution 
progresses.  Since  the  grid  was  already  being  moved  in  this  test,  we  superimposed  a  small 
oscillation  from  one  step  to  the  next  whose  amplitude  is  controlled  by  DX.OSC  in  the 
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program,  here  chosen  rather  arbitrarily  as  0.125.  This  flexibility  to  move  the  cells  around 
rather  arbitrarily,  as  long  as  interfaces  don’t  cross  each  other,  is  very  useful  in  Lagrangian, 
quasi-Lagrangian,  and  adaptively  gridded  “sliding  rezone”  calculations. 

8.4  Two-Dimensional  Muzzle  Flash  Problem  -  LCPFCT  Test  #4 


1  |  . . 16  26  solid  wall  4 1 


Figure  8.8  Diagram  of  the  geometry  and  initial  conditions  of  the  two-dimensional  muzzle 
flash  problem  -  LCPFCT  Test  #4.  The  cylindrical  wall  (“muzzle”)  is  1.0  cm  thick  and 
2.0  cm  long.  The  pressure  ratio  behind  the  diaphragm  is  1000:1  and  the  density  ratio  is 
100:1. 

Here  we  show  how  timestep  splitting  is  used  to  solve  the  ideal  two-dimensional  equations 
of  gasdynamics  with  the  LCPFCT  modules.  This  listing  in  Appendix  E  shows  how  to 
set  up  the  calls  to  the  grid  subroutine  and  impress  boundary  conditions  for  a  diaphragm 
problem  like  Test  #3  but  this  time  in  a  cylindrical  barrel.  Figure  8.8  shows  the  geometric 
configuration  and  dimensions  of  the  distinct  regions  in  this  problem.  After  the  shock  has 
formed  just  above  the  diaphragm  at  interface  J  =  11,  it  progresses  for  a  short  distance  in 
a  restricted  one-dimensional  manner  and  then  flashes  out  of  the  muzzle  and  expands  in 
an  axisymmetric  manner.  Simple  outflow  boundary  conditions,  BC-OUTF ,  are  applied 
to  the  upper  and  right  boundaries  at  interfaces  7  =  41  and  I  —  41  respectively.  The 
lower  boundary  at  interface  7  =  1  and  the  axis  at  interface  7  =  1  were  solved  with 
reflecting  boundary  conditions,  BCJVALL  and  BC-AXIS  respectively.  The  calculation 
is  performed  on  a  40  x  40  uniformly  spaced  rectangular  grid  with  DR  =  DZ  =  0.1.  The 
equations  are  not  integrated  inside  the  ideal  solid  cylindrical  wall  shown  in  Figure  8.6. 
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The  initial  conditions  were  formed  by  setting  the  entire  mesh  to  an  ambient  values, 
RHOAMB  =  0.00129,  VELAMB  =  0.0,  and  PREAMB  =  1.013  x  106,  for  the  density, 
velocity  and  pressure.  We  then  created  a  region  10  cells  high  inside  the  barrel  and  below 
the  diaphragm  with  RHOJN  =  0.129  and  PREJN  —  1.103  x  109,  one  hundred  and  one 
thousand  times  ambient  respectively.  The  fluid  everywhere  was  assumed  to  be  a  perfect 
gas  with  7  =  1.4. 
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Figure  8.9  Character  contour  plots  of  the  solution  to  the  two-dimensional  muzzle  flash 
problem  at  two  different  times  a)  step  150,  and  b)  step  400. 


The  calculation  is  performed  in  R-Z  cylindrical  geometry  by  specifying  IALFR  =  2 
rather  than  1  in  the  appropriate  call  to  MAKEGRID  for  integrations  in  the  radial  direction. 
In  the  way  LCPFCT  is  implemented,  the  first  row  and  first  column  are  one  half  zone  from 
the  reflecting  boundaries.  This  facilitates  conservation  checks  and  simplifies  application 
of  the  boundary  conditions  since  the  the  first  row  and  column  represent  a  full  cell  and 
conservation  can  be  enforced  by  requiring  the  fluxes  through  the  boundaries  to  be  zero. 
Results  are  shown  as  printouts  of  two  lines  through  the  two  dimensional  arrays  at  steps  150 
and  400.  A  simple  variable  timestep  capability  is  included  with  this  test  to  show  one  easy 
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way  to  do  this.  The  square  root  of  the  energy  divided  by  the  density  gives  a  reasonable 
approximation  to  the  fastest  characteristic  speed  in  the  problem.  Therefore  the  maximum 
of  this  speed  over  the  grid  is  used  to  estimate  a  suitable  timestep  for  the  next  step  of 
integration. 

The  listing  of  the  driver  program  and  the  printed  results  axe  in  Appendix  E.  Fig¬ 
ure  8.9  shows  two  simple  character  contour  plots  of  the  density  computed  by  this  model 
for  timesteps  150  and  400  at  times  25.06/xsec  and  75.G6psec  of  the  calculation  respectively. 
In  Figure  8.9a  the  flow  has  just  left  the  muzzle  and  is  reaching  the  upper  boundary.  This 
shows  flow  exiting  the  computational  domain  with  no  appreciable  numerical  reflection 
through  the  implementation  of  boundary  condition  2.  At  the  later  time  of  Figure  8.9b, 
the  extrapolated  outflow  conditions  at  the  radial  boundary  has  also  come  into  play  and  is 
showing  no  reflection  of  a  purely  numerical  origin.  This  simple  outflow  boundary  condition 
is  implemented  in  subroutine  GASDYN. 

Since  the  GASDYN  subroutine  provided  for  the  earlier  LCPFCT  Test  #2  and  Test  #3 
included  provision  for  a  second  transverse  momentum  RVTN ,  it  can  be  used  as  well  for  this 
two-dimensional  problem.  In  a  production  environment,  it  is  best  to  have  different  versions 
of  GASDYN  to  reduce  the  confusion  in  the  programming  and  unnecessary  statements  and 
tests  in  the  Fortran  related  to  directions  and  variables  not  being  used.  Here  however, 
using  the  same  code  reduces  the  number  of  different  programs  while  showing  just  how 
straightforward  this  approach  to  fluid  dynamics  is.  The  extension  of  this  test  program  and 
the  subroutine  GASDYN  to  three  dimensions  is  also  a  rather  easy  modification.  Indeed, 
the  simplicity  and  efficiency  of  FCT  algorithms  has  led  to  their  ready  adaptation  to  efficient 
parallel  processing,  e.g.,  Gustafson  et  al.  (1988)  and  Oran  and  Boris  (1991). 

Since  FCT  is  designed  to  solve  general  continuity  equations,  complex  fluid  dynamic 
interactions  involving  rotational  flow  and  turbulence  can  be  simulated  as  easily  as  the 
transient  shock  and  blast  problems  used  as  examples  here.  Furthermore,  extensive  tests 
performed  with  FCT  and  monotone  algorithms,  for  example  by  Edgar  and  Woodward 
(1991),  and  Boris  et  al.  (1992),  indicate  that  these  methods  behave  as  large  eddy  models 
are  expected  to  behave  for  high  Reynolds  number  flows.  The  flux-correction  procedure  adds 
a  local,  solution-dependent  dissipation  to  the  overall  fluid  dynamic  simulation  much  as  an 
eddy  viscosity  (diffusivity)  would,  coverting  nonlineaxly  generated,  unresolvable  structure 
in  the  computed  flow  to  heat,  modeling  the  effect  of  a  physical  viscosity  acting  at  the  small 
scales  of  a  turbulent  cascade. 
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9.  SUMMARY 


This  report  has  described  a  series  of  subroutines  which,  as  a  library,  constitute  the  For¬ 
tran  implementation  of  the  LCPFCT  algorithm.  This  version  of  the  FCT  algorithm  is  the 
culmination  of  two  decades  for  research  into  FCT  algorithms  and  represents  the  natural 
extension  of  the  previous  ETBFCT  and  PRBFCT  subroutines.  We  have  attempted  to 
make  these  subroutines  as  general  as  possible  without  appreciably  sacrificing  simplicity  or 
efficiency.  The  routines,  as  they  stand,  treat  a  wide  range  of  geometries,  grid  configura¬ 
tions,  boundary  conditions,  and  source  terms.  “Hooks”  have  been  left  in  these  routines  to 
add  additional  geometries  and  source  terms  and  some  of  these  advanced  capabilities  me 
discussed  briefly  in  Section  7.  The  programs  and  documentation  both  indicate  places  where 
an  advanced  user  may  wish  to  make  other  changes  such  as  employing  different  weighted  av¬ 
erages  for  computing  interface  quantities  from  the  cell-averaged  conserved  variables.  This 
report  describes  only  the  low-phase  error,  one-dimensional  FCT  algorithm  in  the  context 
of  a  two-stage  Runge-Kutta  time  integration  but  this  is  the  version  which  we  have  found 
easiest  to  implement  on  different  computers  including  a  number  of  parallel  processing  sys¬ 
tems  and  easiest  to  teach  to  people  who  are  just  learning  CFD  and  need  to  get  good 
multidimensional  results  in  a  short  period  of  time. 

Here  we  would  like  to  reiterate  the  philosophy  behind  the  data  and  program  structure 
adopted  in  LCPFCT.  To  solve  Eq.  (1.1)  numerically  for  even  one  timestep  requires  a  great 
deal  of  input  data  and  many  independent  calculations.  The  logically  separate  components 
of  this  calculation,  1)  the  data  structures  used,  2)  the  geometry  of  the  computational 
domain,  3)  the  system  of  continuity  equations  being  solved,  and  4)  the  algorithms  used 
to  solved  each  of  these  continuity  equations,  have  been  built  into  a  hierarchical  program 
with  distinct  subroutines  requiring  separate  calls.  This  separation  of  function  has  two 
advantages.  First,  many  different  types  of  calculations  can  be  performed  using  the  same 
code  by  mixing  and  matching  various  functions  (subroutines)  in  different  orders  and  with 
different  arguments.  Second,  functions  and  calculations  which  axe  common  to  large  regions 
of  the  computational  domain  or  to  several  different  continuity  equations  or  which  are 
unchanged  over  several  timesteps  do  not  need  to  be  performed  more  than  once.  Thus 
optimization  is  achieved  by  eliminating  many  repeated  calculations  even  though  a  slight 
extra  expense  is  sometimes  incurred  to  construct  extra  calling  sequences  made  necessary 
by  the  strict  separation  of  function  employed  in  the  subroutines. 

As  a  final  note  of  caution,  we  point  out  that  while  the  LCPFCT  routines  have  been 
checked  out  carefully,  by  no  means  has  every  possible  application  been  tested.  Many  com¬ 
binations  of  calls  and  valid  applications  have  not  yet  even  been  thought  of.  Thus  there 
may  be  bugs  which  appear  in  new  applications.  This  warning  is  particularly  important 
because  FCT  algorithms  are  notoriously  forgiving  and  uncomplaining.  They  seldom  blow 
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up  (unless  U >  ^),  but  rather  the  solution  degrades  gracefully  and  unspectacularly. 
This  may  sound  like  an  advantage  but  it  can  be  extremely  misleading  since  many  poten¬ 
tial  users  may  be  accustomed  to  methods  which  fall  apart  quickly  when  there  are  even 
minor  difficulties.  Be  skeptical;  always  check  your  numbers  carefully,  particularly  near  the 
boundaries.  Do  not  just  look  at  the  exponents  of  the  answers  or  the  general  (graphical) 
properties  of  your  solutions. 

Any  suggestions  for  improvements,  either  for  the  subroutines  or  for  this  exposition 
will  be  gratefully  received  by  the  authors  and  valid  changes  incorporated  in  future  edi¬ 
tions/printings. 
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APPENDIX  A.  LISTING  OF  LCPFCT  LIBRARY  SUBROUTINES 


A1 


The  thirteen  subroutines  of  the  LCPFCT  library  are  listed  sequentially  in  the  following 
pages.  They  four  main  subroutines,  LCPFCT,  MAKEGRID,  VELOCITY,  and  SOURCES 
are  listed  first  followed  by  the  remaining  routines  in  alphabetic  order.  The  following  index 
is  provided  to  direct  the  reader  to  the  page  where  the  listing  of  each  of  the  routines, 
including  the  block  data  routine  FCTBLK,  begins. 

LCPFCT  .  A2 

MAKEGRID  .  A5 

VELOCITY .  A7 

SOURCES  .  A8 

CNVFCT . A10 

CONSERVE . A13 

COPYGRID . A14 

FCTBLK . A15 

NEW-GRID . A15 

RESIDIFF  . A17 

SET-GRID  . A18 

ZERODIFF . A19 

ZEROFLUX . A20 
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Subroutine  LCPFCT  (  RHOO,  RHON,  II,  IN. 

&  SRHOl ,  VRHOl,  SRHON,  VRHON,  PBC  ) 
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Originated:  J.P.  Boris  Code  4400,  URL  Feb  1987 

Modified:  Laboratory  for  Computational  Physics  &  Fluid  Dynamics 

Contact:  J.P.  Boris,  J.H.  Gardner,  A.M.  Landsberg,  or  E.S.  Oran 

Description:  This  routine  solves  generalized  continuity  equations 
of  the  form  dRHO/dt  =  -div  (RHO*V)  +  SOURCES  in  the  user's  choice 
of  Cartesian,  cylindrical,  or  spherical  coordinate  systems.  A 
facility  is  included  to  allow  definition  of  other  coordinates. 

The  grid  can  be  Eulerian,  sliding  rezone,  or  Lagrangian  and  can 
be  arbitrarily  spaced.  The  algorithm  is  a  low-phase-error  FCT 
algorithm,  vectorized  and  optimized  for  a  combination  of  speed  and 
flexibility.  A  complete  description  appears  in  the  NRL  Memorandum 
Report  (1992),  “LCPFCT  -  A  Flux-Corrected  Transport  Algorithm  For 
Solving  Generalized  Continuity  Equations* . 


Arguments : 

RHOO  Real  Array 
RHON  Real  Array 
II  Integer 

IN  Integer 

SRHOl  Real  Array 
VRHOl  Real  Array 
SRHON  Real  Array 
VRHON  Real  Array 
PBC  Logical 


grid  point  densities  at  start  of  step  I 
grid  point  densities  at  end  of  step  o 
first  grid  point  of  integration  I 
last  grid  point  of  intergration  I 
boundary  guard  cell  factor  at  cell  Il  +  l  I 
boundary  value  added  to  guard  cell  Il-l  I 
boundary  guard  cell  factor  at  cell  IN+1  I 
boundary  value  added  to  guard  cell  IN+1  I 
periodic  boundaries  if  PBC  =  .true.  I 


In  this  routine  the  last  interface  at  RADHN(INP)  is  the  outer 
boundary  of  the  last  cell  indexed  IN.  The  first  interface  at 
RADHN(Il)  is  the  outer  boundary  of  the  integration  domain  before 
the  first  cell  indexed  II. 


Language  and  Limitations:  LCPFCT  is  a  package  of  FORTRAN  77  sub¬ 
routines  written  in  single  precision  (64  bits  CRAY).  The  parameter 
NPT  is  used  to  establish  the  internal  FCT  array  dimensions  at  the 
maximum  size  expected.  Thus  NPT  =202  means  that  continuity  equa¬ 
tions  for  systems  up  to  200  cells  long  in  one  direction  can  be 
integrated.  Underflows  can  occur  when  the  function  being  trans¬ 
ported  has  a  region  of  zeroes.  The  calculations  misconserve  by 
one  or  two  bits  per  cycle.  Relative  phase  and  amplitude  errors 
(for  smooth  functions)  are  typically  a  few  percent  for  character¬ 
istic  lengths  of  1  -  2  cells  (wavelengths  of  order  10  cells) .  The 
jump  conditions  for  shocks  are  generally  accurate  to  better  than  1 
percent.  Common  blocks  are  used  to  transmit  all  data  between  the 
subroutines  in  the  LCPFCT  package. 


Auxiliary  Subroutines:  CNVFCT,  CONSERVE,  COPYGRID,  MAKEGRID, 
NEW.GRID,  RESIDIFF,  SET_GRID,  SOURCES,  VELOCITY,  ZERODIFF,  and 
ZEROFLUX.  The  detailed  documentation  report  provided  (or  the 
listing  below)  explains  the  definitions  and  use  of  the  arguments 
to  these  other  subroutines  making  up  the  LCPFCT  package.  These 
routines  are  not  called  from  LCPFCT  itself  but  are  controlled  by 
calls  from  the  user.  Subroutines  MAKEGRID,  VELOCITY  and  SOURCES 


o  o 
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in  this  package  must  first  be  called  to  set  the  grid  geometry, 
velocity-dependent  flux  and  diffusion  coefficients,  and  external 
source  arrays  used  by  LCPFCT.  The  other  subroutines  may  be  called 
to  perform  other  functions  such  as  to  modify  boundary  conditions, 
to  perfon  special  grid  operations,  or  compute  conservation  sums. 


Implicit  NONE 

Integer  NPT,  II,  IN,  IIP,  INP,  I 

Real  BIGNUM,  SRHOl,  VRH01,  SRHON,  VRHON,  RH01M,  RHONP 

Real  RH0T1M,  RHOTNP,  RH0TD1M,  RHOTDNP 

Logical  PBC 
Parameter  (  NPT  =  202  ) 

Parameter  (  BIGNUM  =  1.0E38  ) 

c  BIGNUM  =  Machine  Dependent  Largest  Number  -  Set  By  The  User!!!! 
Real  RHOO(NPT),  RHON (NPT) 

c  /FCT_SCRH/  Holds  scratch  arrays  for  use  by  LCPFCT  and  CNVFCT 

Real  SCRH(NPT),  SCR1 (NPT) ,  DIFF (NPT) 

Real  FLXH(NPT),  FABS(NPT),  FSGN(NPT) 

Real  TERM (NPT),  TERP (NPT) ,  LNRHOT (NPT) 

Real  LORHOT(NPT),  RHOT(NPT) ,  RHOTD (NPT) 

Common  /FCT_SCRH/  SCRH,  SCR1,  DIFF,  FLXH,  FABS,  FSGN, 

&  TERM,  TERP,  LNRHOT,  LORHOT,  RHOT,  RHOTD 

c  /FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 

Real  LO (NPT) ,  LN(NPT) ,  AH  (NPT) 

Real  RLN(NPT) ,  LH  (NPT),  RLH(NPT) 

Real  ROH(NPT),  RNH(NPT),  ADUGTH (NPT) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 

c  /FCT_VELO/  Holds  velocity-dependent  flux  coefficients 

Real  HADUDTH (NPT) ,  NULH(NPT),  MULH(NPT) 

Rea 1  EPSH ( NPT ) ,  VDTODR ( NPT ) 

Common  /FCT_VELO/  HADUDTH,  NULH,  MULH,  EPSH,  VDTODR 

c  /FCT_MISC/  Holds  the  source  array  and  diffusion  coefficient 

Real  SOURCE (NPT),  DIFF1 

Common  /FCT_MISC/  SOURCE,  DIFF1 

C - 

IIP  =11+1 
INP  =  IN  +  1 

c  Calculate  the  convective  and  diffusive  fluxes  .  .  . 

C - 

If  (  PBC  )  Then 

RH01M  =  RHOO(IN) 

RHONP  =  RHOO (II) 

Else 

RHOIM  =  SRH01*RHOO ( II )  +  VRHOl 
RHONP  =  SRHON*RHOO ( IN)  +  VRHON 
End  If 

DIFF (ID  =  NULH (II)  *  (  RHOO (II)  -  RHOIM  ) 

FLXH (II)  =  HADUDTH (ID  ’  (  RHOO (II)  +  RHOIM  ) 


Do  1  I  =  IIP,  IN 


n  o  o  no  no 
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FLXH II)  =  HADUDTH ( I )  *  (  RHOO ( I )  +  RHOO(I-l)  ) 

1  DIFF(I)  =  NULH(I)  *  (  RHOO ( I )  -  RHOO(I-l)  ) 

DIFF(INP)  =  NULH(INP)  *  (  RHONP  -  RHOO (IN)  ) 

FLXH(INP)  =  HADUDTH (INP)  *  (  RHONP  +  RHOO (IN)  ) 

c  Calculate  LORHOT,  the  transported  mass  elements,  and  LNRHOT,  the 

transported  &  diffused  mass  elements  .  .  . 


Do  2  I  =  II,  IN 

LORHOT ( I )  =  LO ( I ) *RHOO ( I )  +  SOURCE(I)  +  (FLXH ( I) -FLXH ( 1+ 1 ) ) 
LNRHOT ( I )  =  LORHOT ( I )  +  (DIFF(I+1)  -  DIFF(I)) 

RHOT(I)  =  LORHOT(I) *RLN(I) 

2  RHOTD(I)  =  LNRHOT ( I ) *RLN { I ) 

Evaluate  the  boundary  conditions  for  RHOT  and  RHOTD  .  .  . 


If  (  PBC  )  Then 

RHOT1M  =  RHOT (IN) 

RHOTNP  =  RHOT (II) 

RHOTD1M  =  RHOTD (IN) 

RHOTDNP  =  RHOTD (II) 

Else 

RHOT1M  =  SRH01*RH0T(I1)  +  VRHOl 
RHOTNP  =  SRHON*RHOT( IN)  +  VRHON 
RHOTD1M  =  SRH01*RH0TD (ID  +  VRHOl 
RHOTDNP  =  SRHON*RHOTr  ( IN)  +  VRHON 
End  If 

Calculate  the  transported  antiduf fusive  fluxes  and  transported 
and  diffused  density  differences  .  .  . 


FLXH (ID  =  MULH(Il)  *  (  RHOT(Il)  -  RHOT1M  ) 

DIFF(Il)  =  RHOTD (II)  -  RH0TD1M 
FABS (II)  =  ABS  (  FLXH (ID  ) 

FSGN(Il)  =  SIGN  (  DIFF1,  DIFF(Il)  ) 

Do  3  I  =  IIP,  IN 

FLXH ( I )  =  MULH(I)  *  (  RHOT(I)  -  RHOT(I-l)  ) 

3  DIFF(I)  =  RHOTD ( I )  -  RHOTD(I-l) 

FLXH ( INP)  =  MULH(INP)  *  (  RHOTNP  -  RHOT ( IN)  ) 

DIFF(INP)  =  RHOTDNP  -  RHOTD (IN) 

c  Calculate  the  magnitude  &  sign  of  the  antidif fusive  flux  followed 

c  by  the  flux-limiting  changes  on  tne  right  and  left  .  .  . 

c - 

Do  4  I  =  II,  IN 

FABS (1+1)  =  ABS  (  FLXH (1+1)  ) 

FSGN (1+1)  =  SIGN  (  DIFF1 ,  DIFF(I+1)  ) 

TERM (1+1)  =  FSGN (1+1) *LN ( I ) *DIFF ( I ) 

4  TERP(I)  =  FSGN(I) *LN(I)*DIFF(I+1) 

If  (  PBC  )  Then 

TERP(INP)  =  TERP(Il) 

TERM (II)  -=  TERM ( INP ) 

Else 

TERP(INP)  =  BIGNUM 
TERM! II)  =  BIGNUM 
End  If 


oononnnononooooooono  o  oo 
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c  Correct  the  transported  fluxes  completely  and  then  calculate  the 

new  Flux-Corrected  Transport  densities  .  .  . 


FLXH (II)  =  FSGN(Il)  *  AMAXl  (  0.0, 

&  AMIN1  (  TERM (II),  FABS(Il),  TERP(ll)  )  ) 

Do  5  I  *  II,  IN 

FLXH ( 1+1)  =  FSGN ( I + 1 )  *  AMAXl  {  0.0, 

&  AMIN1  (  TERM ( 1+1 ) ,  FABS(I+1),  TERP(I+1)  )  ) 

RHON(I)  =  RLN(I)  *  (  LNRHOT ( I )  +  (FLXH(I)  -  FLXH(I+1})  ) 
5  SOURCE (I)  =0.0 


Return 

End 


Subroutine  MAKEGRID  (  RADHO,  RADHN,  II,  INP,  ALPHA  ) 


Description:  This  Subroutine  initializes  geometry  variables  and 
coefficients.  It  should  be  called  first  to  initialize  the  grid. 

The  grid  must  be  defined  for  all  of  the  grid  interfaces  from  II  to 
INP.  Subsequent  calls  to  VELOCITY  and  LCPFCT  can  work  on  only 
portions  of  the  grid,  however,  to  perform  restricted  integrations 
on  separate  line  segments. 


Arguments : 

RADHO  Real  Array (INP) 

RADHN  Real  Array (INP) 

II  Integer 

INP  Integer 

ALPHA  Integer 


old  cell  interface  positions  I 
new  cell  interface  positions  I 
first  cell  interface  I 
last  cell  interface  I 
=  1  for  cartesian  geometry  I 
=  2  for  cylindrical  geometry  I 
=  3  for  spherical  geometry  I 


=  4  general  geometry  (user  supplied)  I 


Implicit  NONE 

Integer  NPT,  II,  IIP,  I,  IN,  INP,  ALPHA 
Parameter  (  NPT  =202  ) 


Real  RADHO(I’  ),  RADHN ( INP ) ,  PI,  FTPI 


c 


/FCT_SCRH/ 

Real 

Real 

Real 

Real 

Common 

Sc 


Holds  scratch  arrays  for  use  by  LCPFCT  and  CNVFCT 


SCRH(NPT) , 
FLXH (NPT) , 
TERM (NPT) , 
LORHOT (NPT) 


SCR1 (NPT) 
FABS (NPT)  , 
TERP (NPT)  . 
RHOT(NPT) 


/FCT_SCRH/ 


SCRH, 

TERM, 


SCR1 , 
TERP, 


DIFF, 

LNRHOT, 


DIFF (NPT) 

FSGN (NPT) 

LNRHOT (NPT) 

RHOTD (NPT) 

FLXH,  FABS,  FSGN, 
LORHOT,  RHOT,  RHOTD 


c 


/FCT_GRID/ 

Real 

Real 

Real 

Common 


Holds  geometry,  grid,  area  and  volume  information 
LO (NPT) ,  LN(NPT),  AH  (NPT) 

RLN(NPT),  LH  (NPT),  RLH(NPT) 

ROH(NPT),  RNH(NPT),  ADUGTH ( NPT ) 

/FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH ,  ROH,  RNH ,  ADUGTH 


oo  no  oooo  on 
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DATA  PI,  FTPI  /3. 1415927,  4.1887902/ 

C - 

IIP  =11+1 
IN  =  INP  -  1 

c  Store  the  old  and  new  grid  interface  locations  from  input  and  then 
update  the  new  and  average  interface  and  grid  coefficients  .  .  . 


Do  1  I  =  II,  INP 

ROH(I)  =  RADHO(I) 

1  RNH(I)  =  RADHN(I) 

Select  the  choice  of  coordinate  systems  .  .  . 


Go  To  (100,  200,  300,  400),  ALPHA 
Cartesian  coordinates  .  .  . 


100  AH ( INP)  =  1.0 

Do  101  I  =  II,  IN 
AH ( I )  =  1.0 

LO (I)  =  ROH ( 1+1 )  -  ROH(I) 
101  LN ( I )  =  RNHU+l)  -  RNH(I) 

Go  To  500 


Cylindrical  Coordinates:  RADIAL  .  .  . 


200  DIFF(Il)  =  RNH ( II ) *RNH ( II ) 

SCRH(Il)  =  ROH(Il) *R0H(I1) 

AH (INP)  =  PI* (ROH (INP)  +  RNH (INP)) 
DO  201  I  =  II,  IN 

AH (I)  =  PI* (ROH ( I)  +  RNH(I) ) 

SCRH ( 1+1 )  =  ROH ( 1+1 ) *ROH ( 1+1) 

LO ( I )  =  PI* (SCRH ( 1+1 )  -  SCRH ( I ) ) 
DIFF ( 1+1 )  =  RNH ( 1+1 ) *RNH ( 1+1 ) 

201  LN ( I )  =  PI* (DIFF ( 1+1 )  -  DIFF (I) ) 
Go  To  500 

Spherical  Coordinates :  RADIAL  .  .  . 


300  SCRl(Il)  =  R0H(I1)*R0H(I1) *R0H(I1) 

DIFF (II)  =  RNH (II) *RNH (II) *RNH (II) 

SCRH ( INP )  =  (ROH ( INP)  +  RNH ( INP) ) *ROH ( INP) 

AH (INP)  =  FTPI* (SCRH (INP)  +  RNH ( INP) *RNH ( INP) ) 
DO  301  I  =  II,  IN 

SCRKI+l)  =  ROH  ( 1  +  1 )  *ROH  ( 1+1 )  *ROH  ( 1  +  1 ) 

DIFF ( 1+1 )  =  RNH ( 1+1 ) *RNH ( 1+1 ) *RNH ( 1+1 ) 

SCRH ( I )  =  ( ROH ( I )  +  RNH ( I) ) *ROH ( I ) 

AH ( I )  =  FTPI* (SCRH(I)  +  RNH ( I ) *RNH ( I ) ) 

LO ( I )  =  FTPI* (SCR1 (1+1)  -  SCRl(I)) 

301  LN ( I )  =  FTPI* (DIFF(I+1)  -  DIFF ( I ) ) 

Go  To  500 


c  Special  Coordinates:  Areas  and  Volumes  are  User  Supplied  . 

C - 

400  Continue 

c  Additional  system  independent  geometric  variables  .  .  . 
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500  Do  501  I  =  II,  IN 

501  RLN(I)  =  1 .  0/LN { I ) 

LH (II)  =  LN(I1) 

RLH(Il)  =  RLN(Il) 

Do  502  I  =  IIP,  IN 

LH { I )  =  0.5* (LN( I )  +  LN(I-l)) 

502  RLH  < I )  =  0.5* (RLN ( I )  +  RLN(I-l)) 
LH(INP)  =  LN(IN) 

RLH(INP)  =  RLN (IN) 

Do  503  I  s  II,  INP 

503  ADUGTH ( I )  =  AH  ( I )  *  (RNH  ( I )  -ROH(I)) 

Return 

End 


Subroutine  VELOCITY  (  UH,  II,  INP,  DT  ) 

c - 

c 

c  Description:  This  subroutine  calculates  all  velocity-dependent 

c  coefficients  for  the  LCPFCT  and  CNVFCT  routines.  This  routine 

c  must  be  called  before  either  LCPFCT  or  CNVFCT  is  called.  MAKEGRID 

c  must  be  called  earlier  to  set  grid  and  geometry  data  used  here, 

c 

c  Arguments: 

c  UH  Real  Array (NPT)  flow  velocity  at  cell  interfaces  I 

c  II  Integer  first  cell  interface  of  integration  I 

INP  Integer  last  cell  interface  =  N  +  1  I 

DT  Real  stepsize  for  the  time  integration  I 

C - - - 

Implicit  NONE 

Integer  NPT,  II,  IIP,  I,  IN,  INP 
Parameter  (  NPT  =202  ) 

Real  UH(INP),  DT,  RDT,  DTH,  PT2,  DT4,  0NE3RD,  0NE6TH 

c  /FCT_SCRH/  Holds  scratch  arrays  for  use  by  LCPFCT  and  CNVFCT 

Real  SCRH(NPT),  SCR1 (NPT) ,  DIFF (NPT) 

Real  FLXH(NPT),  FABS(NPT),  FSGN(NPT) 

Real  TERM (NPT) ,  TERP(NPT),  LNRHOT (NPT) 

Real  LORHOT(NPT),  RHOT (NPT) ,  RHOTD (NPT) 

Common  /FCT_SCRH/  SCRH,  SCR1,  DIFF,  FLXH,  FABS,  FSGN, 

&  TERM,  TERP,  LNRHOT,  LORHOT,  RHOT,  RHOTD 

c  /FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 

Real  LO(NPT),  LN(NPT) ,  AH  (NPT) 

Real  RLN (NPT) ,  LH  (NPT),  RLH (NPT) 

Real  ROH(NPT),  RNH (NPT),  ADUGTH ( MPT ) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 

c  /FCT_VELO/  Holds  velocity-dependent  flux  coefficients 

Rea 1  HADUDTH ( NPT ) ,  NULH ( NPT ) ,  MULH ( NPT ) 

Real  EPSH(NPT),  VDTODR (NPT) 

Common  /FCT_VELO/  HADUDTH,  NULH,  MULH,  EPSH,  VDTODR 


on  o  o 
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up  =  11  +  1 

IN  =  INP  -  1 


c  Calculate  0 . 5*Interface  Area  *  Velocity  Difference  *  DT  (HADUDTH). 

c  Next  calculate  the  interface  epsilon  (EPSH  =  V*DT/DX) .  Then  find 

c  the  diffusion  (NULH)  and  antidiffusion  (MULH)  coefficients.  The 

c  variation  with  epsilon  gives  fourth-order  accurate  phases  when  the 
c  grid  is  uniform,  the  velocity  constant,  and  SCRH  is  set  to  zero, 

c  With  SCRH  nonzero  (as  below)  slightly  better  results  are  obtained 
c  in  some  of  the  tests.  Optimal  performance,  of  course,  depends  on 

on  the  application. 


W:h  t\  ' 


RDT  =  1.0 /DT 
DTH  =  0 . 5*DT 
ONE6TH  =  1. 0/6.0 
ONE 3RD  =  1. 0/3.0 
Do  1  I  =  II,  INP 

HADUDTH ( I )  =  DT*AH ( I ) *UH ( I )  -  ADUGTH ( I ) 

EPSH (I)  =  HADUDTH ( I ) *RLH ( I ) 

SCRH ( I )  =  AMIN1  (  ONE6TH,  ABS {EPSH ( I) )  ) 

SCRH ( I )  =  ONE3RD*SCRH ( I ) *  *2 
HADUDTH (I)  =  0 . 5  *HADUDTH { I ) 

NULH(I)  =  ONE6TH  +  ONE3RD* (EPSH ( I )  +  SCRH(I))* 
&  (EPSH (I)  -  SCRH (I) ) 

MULH ( I )  =  0.25  -  0 . 5 *NULH ( I ) 

NULH ( I )  =  LH { I ) * ( NULH { I )  +  SCRH(I)) 

MULH ( I )  =  LH (I) * (MULH ( I )  +  SCRH(I)) 

1  DIFF(I)  =  UH ( I )  -  RDT* (RNH ( I )  -  ROH(I)) 

Now  calculate  VDTODR  for  CNVFCT  .  .  . 


DT2  =  2 . 0  *DT 
DT4  =  4 . 0  *DT 

VDTODR ( T 1 )  =  DT2*DIFF ( II ) / (RNH (IIP) -RNH (II)  + 

&  ROH(IIP) -ROH(Il) ) 

Do  2  I  =  IIP,  IN 

2  VDTODR ( I )  =  DT4*DIFF ( I) / (RNH ( 1+1 ) -RNH ( 1-1 )  + 

&  ROH ( 1+1 ) -ROH ( 1-1 ) ) 

VDTODR ( INP )  =  DT2*DIFF ( INP) / (RNH ( INP) -RNH ( IN)  + 
&  ROH (INP) -ROH (IN) ) 


Return 

End 


C 


Subroutine  SOURCES  (  II,  IN,  DT,  MODE,  C,  D,  D1 ,  DN) 


C 


c 


c 

Description : 

c 

c 

Arguments : 

c 

11 

Integer 

c 

IN 

Integer 

c 

DT 

Real 

c 

MODE 

Integer 

This  Subroutine  accumulates  different  source 


first  cell  to  be  integrated 
last  cell  to  be  integrated 
stepsize  for  the  time  integration 
=  1  computes  +  DIV  (D) 


terms . 


I 

T 

l 

l 


no  on  no  o  no  oo 
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c 

=  2 

computes  +  C*GRAD  (D) 

I 

c 

=  3 

adds  +  D  to  the  sources 

I 

c 

=  4 

+  DIV  (D)  from  interface  data 

I 

c 

=  5 

+  C*GRAD  (D)  from  interface  data 

I 

c 

=  6 

+  C  for  list  of  scalar  indices 

I 

c 

c 

Real  Array (NPT) 

Array 

of  source  variables 

I 

c 

D 

Real  Array (NPT) 

Array 

of  source  variables 

I 

c 

D1 

Real 

first 

boundary  value  of  D 

I 

c 

DN 

Real 

last 

boundary  value  of  D 

I 

Implicit  NONE 

Integer  NPT,  NINDMAX,  MODE,  IS,  I,  II,  IN,  IIP,  INP 
Parameter  (  NPT  =  202,  NINDMAX  =  150  ) 

Real  C (NPT) ,  D(NPT) ,  DT,  DTH,  DTQ,  D1 ,  DN 


/FCT_NDEX/  Holds  a  scalar  list  of  special  cell  information  .  .  . 

Real  SCALARS (NINDMAX) 

Integer  INDEX (NINDMAX) ,  NIND 

Common  /FCT_NDEX/  NIND,  INDEX,  SCALARS 


/FCT_SCRH/ 

Real 

Real 

Real 

Real 

Common 

& 


Holds  scratch 
SCRH(NPT) , 
FLXH(NPT)  , 
TERM (NPT) , 
LORHOT(NPT) , 


arrays  for  use 
SCR1 (NPT) , 
FABS (NPT)  , 
TERP (NPT) , 
RHOT (NPT) , 


by 


/FCT_SCRH/ 


SCRH, 

TERM, 


SCR1, 

TERP, 


DIFF, 

LNRHOT, 


LCPFCT  and  CNVFCT 
DIFF (NPT) 

FSGN(NPT) 

LNRHOT (NPT) 
RHOTD(NPT) 

FLXH,  FABS,  FSGN, 
LORHOT,  RHOT,  RHOTD 


/FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 
Real  LO (NPT) ,  LN(NPT) ,  AH  (NPT) 

Real  RLN(NPT),  LH  (NPT),  RLH(NPT) 

Real  ROH (NPT) ,  RNH(NPT),  ADUGTH ( NPT ) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 


/FCT_MISC/  Holds  the  source  array  and  diffusion  coefficient 
Real  SOURCE (NPT),  DIFF1 

Common  /FCT_MISC/  SOURCE,  DIFF1 


IIP  =11+1 
INP  =  IN  +  1 
DTH  =  0 . 5*DT 
DTQ  =  0 . 25*DT 

Go  To  (  101,  202,  303,  404,  505,  606  ),  MODE 
+  DIV(D)  is  computed  conservatively  and  added  to  SOURCE  .  .  . 


101  SCRH (II)  =  DT*AH ( II ) *D1 

SCRH ( INP)  =  DT*AH ( INP) *DN 
Do  1  I  =  IN,  IIP,  -1 

SCRH ( I )  =  DTH* AH ( I ) * (D ( I )  +  D(I-l)) 

1  SOURCE ( I )  x  SOURCE ( I )  +  (SCRH(I+1)  -  SCRH(I)) 

SOURCE (II)  =  SOURCE ( II )  +  (SCRH(IIP)  -  SCRH(Il)) 

Return 

+  C*GRAD (D)  is  computed  efficiently  and  added  to  the  SOURCE  .  .  . 


no  no  no  oo 


202 


2 

& 

& 
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SCRH  (ID  =  DTH*D1 
SCRH (INP)  =  DTH*DN 
Do  2  I  =  IN,  IIP,  -1 

SCRH ( I )  =  DTQ* (D(I)+D(I-1) ) 

DIFF(I)  =  SCRH (1+1)  -  SCRH { I ) 

SOURCE ( I )  =  SOURCE (I) 

+  C(I) *(AH(I+1)+AH(I) ) *DIFF(I) 

SOURCE (ID  =  SOURCE (II)  +  C ( II ) * (AH ( IIP) +AH ( II ) ) * 
(SCRH (IIP) -SCRH ( II ) ) 


Return 


+  D  is  added  to  SOURCE  in  an  explicit  formulation  .  .  . 


303  Do  3  I  =  II,  IN 

3  SOURCE ( I )  =  SOURCE { I )  +  DT*LO(I) *D(I) 

Return 

+  DIV(D)  is  computed  conservatively  from  interface  data  .  .  . 


404  SCRH(INP)  =  DT*  AH ( INP ) *DN 
SCRH  (  II)  =  DT*AH  (  ID  *D1 
Do  4  I  =  IN,  IIP,  -1 

SCRH ( I )  =  DT*AH (I) *D{ I) 

4  SOURCE  (I)  =  SOURCE  (I) +SCRHU+1) -SCRH  (I) 

SOURCE (ID  =  SOURCE (II)  +  SCRH (IIP)  -  SCRH (II) 
Return 

+  C*GRAD(D)  is  computed  using  interface  data  .  .  . 


505  SCRH {  II)  =  DTH*D1 
SCRH (INP)  =  DTH*DN 
Do  5  I  =  IN,  IIP,  -1 
SCRH ( I )  =  DTH*D( I) 

DIFF(I)  =  SCRH (1+1)  -  SCRH ( I ) 

5  SOURCE ( I )  =  SOURCE ( I ) 

&  +  C ( I) * (AH (1+1) +AH (I) ) *DIFF ( I) 

SOURCE  (ID  =  SOURCE  (ID  +  C  ( ID  *  (AH  (IIP)  +AH  { ID  )  * 
&  ( SCRH  (IIP)  -SCRH  (ID) 

Return 


+  C  for  source  terms  only  at  a  list  of  indices  . 


606  Do  6  IS  =  1,  NIND 
I  s  INDEX (IS) 

6  SOURCE ( I )  =  SOURCE ( I )  +  SCALARS (IS) 


Return 

End 


Subroutine  CNVFCT  (  RHOO,  RHON,  II,  IN, 

&  SRHOl ,  VRHOl,  SRHON,  VRHON,  PBC  ) 


C - 

c 

c  Originated:  J.P.  Boris  Code  4400,  NRL  Feb  1987 

c  Modified:  Laboratory  for  Computational  Physics  &  Fluid  Dynamics 

c  Contact:  J.P.  Boris,  J.H.  Gardner,  A.M.  Landsberg,  or  E.S.  Oran 

c 


u  u 
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c  Description:  This  routine  solves  an  advective  continuity  equation 
c  of  the  form  dRHO/dt  =  -V*grad(RHO)  +  SOURCES  in  the  user's  choice 

c  of  Cartesian,  cylindrical,  or  spherical  coordinate  systems.  A 

c  facility  is  included  to  allow  definition  of  other  coordinates, 

c  The  grid  can  be  Eulerian,  sliding  rezone,  or  Lagrangian  and  can 
c  be  arbitrarily  spaced.  The  algorithm  is  a  low-phase-error  FCT 
c  algorithm,  vectorized  and  optimized  for  a  combination  of  speed  and 
c  flexibility.  A  complete  description  appears  in  the  NRL  Memorandum 

c  Report  (1992),  "LCPFCT  -  A  Flux-Corrected  Transport  Algorithm  For 

c  Solving  Generalized  Continuity  Equations", 
c 


c  Arguments : 


c 

RHOO 

Real  Array 

grid  point  densities  at  start  of  step 

I 

c 

RHON 

Real  Array 

grid  point  densities  at  end  of  step 

0 

c 

11 

Integer 

first  grid  point  of  integration 

I 

c 

IN 

Integer 

last  grid  point  of  intergration 

I 

c 

SRHOl 

Real  Array 

boundary  guard  cell  factor  at  cell  11+1 

I 

c 

VRHOl 

Real  Array 

boundary  value  added  to  guard  cell  11-1 

I 

c 

SRHON 

Real  Array 

boundary  guard  cell  factor  at  cell  IN+1 

I 

c 

VRHON 

Real  Array 

boundary  value  added  to  guard  cell  IN+1 

1 

c 

' 

PBC 

Logical 

periodic  boundaries  if  PBC  =  .true. 

I 

V— 

c 

In 

this  routine  the 

last  interface  at  RADHN(INP)  is  the  outer 

c  boundary  of  the  last  cell  indexed  IN.  The  first  interface  at 
c  RADHN(Il)  is  the  outer  boundary  of  the  integration  domain  before 

c  the  first  cell  indexed  II.  The  description  of  CNVFCT  and  the 

c  roles  played  by  the  auxiliary  library  routines  is  the  same  for 
c  LCPFCT  given  above. 


c 


Implicit  NONE 

Integer  NPT,  II,  IN,  IIP,  INP,  I 

Real  BIGNUM,  SRHOl,  VRH01,  SRHON,  VRHON,  RHOIM,  RHONP 

Real  RH0T1M,  RHOTNP,  RH0TD1M,  RHOTDNP 

Logical  PBC 
Parameter  (  NPT  =202  ) 

Parameter  (  BIGNUM  =  1.0E38  ) 

BIGNUM  =  Machine  Dependent  Largest  Number  -  Set  By  The  User!!!! 


Real  RHOO(NPT),  RHON(NPT) 


c 


/FCT_SCRH/ 

Real 

Real 

Real 

Real 

Common 

& 


Holds  scratch  arrays  for  use  by 


SCRH(NPT) , 
FLXH(NPT) , 

TERM  (NPT)  , 
LORHOT ( NPT ) , 
/FCT_SCRH/  SCRH, 
TERM, 


SCRl(NPT) , 

FABS (NPT) , 

TERP (NPT) , 
RHOT(NPT) , 

SCR1 ,  DIFF, 
TERP,  LNRHOT, 


LCPFCT  and  CNVFCT 
DIFF (NPT) 

FSGN(NPT) 

LNRHOT (NPT) 

RHOTD (NPT) 

FLXH,  FABS,  FSGN, 
LORHOT,  RHOT,  RHOTD 


c 


/FCT_GRID/ 

Real 

Real 

Real 

Common 


Holds  geometry, 
LO (NPT) , 
RLN(NPT)  , 
ROH(NPT) , 
/FCT_GRID/  LO, 


grid,  area  and  volume  information 
LN (NPT) ,  AH  (NPT) 

LH  (NPT),  RLH(NPT) 

RNH ( NPT ) ,  ADUGTH ( NPT ) 

LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 


/FCT_VELO/  Holds  velocity-dependent  flux  coefficients 
Real  HADUDTH (NPT) ,  NULH(NPT),  MULH(NPT) 

Real  EPSH(NPT),  VDTODR(NPT) 

Common  /FCT_VELO/  HADUDTH,  NULH,  MULH,  EPSH,  VDTQDR 


non  oo  non  oo 
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%  ?  s--  W  ■*“, 


c  /FCT_MISC/  Holds  the  source  array  and  diffusion  coefficient 

Real  SOURCE (NPT) ,  DIFF1 

Common  /FCT_MISC/  SOURCE,  DIFF1 

C - 

IIP  =11+1 
INP  =  IN  +  1 

Calculate  the  convective  and  diffusive  fluxes  .  .  . 


If  <  PBC  )  Then 

RH01M  =  RHOO(IN) 

RHONP  =  RHOO(Il) 

Else 

RH01M  =  SRH01*RH00 (II)  +  VRHOl 
RHONP  =  SRHON*RHOO { IN)  +  VRHON 
End  If 


DIFF (II)  =  NULH(Il)  *  (  RHOO (II)  -  RH01M  ) 
FLXH(Il)  -  VDTODR(Il)  *  (  RHOO (II)  -  RH01M  ) 


Do  1  I  =  IIP,  IN 

DIFF ( I )  =  <  RHOO ( I )  -  RHOO(I-l)  ) 
FLXH(I)  =  VDTODR(I)  *  DIFF(I) 

1  DIFF (I)  =  NULH(I)  *  DIFF (I) 


DIFF (INP)  =  NULH(INP)  *  (  RHONP  -  RHOO (IN)  ) 

FLXH (INP)  =  VDTODR(INP)  *  (  RHONP  -  RHOO (IN)  ) 

Calculate  LORHOT,  the  transported  mass  elements,  and  LNRHOT,  the 
transported  &  diffused  mass  elements  .  .  . 


Sc 


2 


Do  2  I  =  II,  IN 

LORHOT { I )  =  LN (I)  *  (RHOO(I)  -  0 . 5* (FLXH ( 1+1 )  +  FLXH ( 
+  SOURCE (I) 

LNRHOT ( I )  =  LORHOT ( I )  +  (DIFF(I+1)  -  DIFF { I ) ) 

RHOT(I)  =  LORHOT { I ) *RLN ( I ) 

RHOTD(I)  =  LNRHOT ( I ) *RLN ( I ) 


I))) 


Evaluate  the  boundary  conditions  for  RHOT  and  RHOTD  .  .  . 


If  (  PBC  )  Then 

RH0T1M  =  RHOT (IN) 

RHOTNP  =  RHOT (II) 

RH0TD1M  =  RHOTD (IN) 

RHOTDNP  =  RHOTD (II) 

Else 

RHOT1M  =  SRH01*RH0T ( II )  +  VRHOl 
RHOTNP  =  SRHON*RHOT ( IN)  +  VRHON 
RHOTD1M  =  SRH01*RH0TD ( II )  +  VRHOl 
RHOTDNP  =  SRHON* RHOTD ( IN)  +  VRHON 
End  If 

Calculate  the  transported  antiduf fusive  fluxes  and  transported 
and  diffused  density  differences  .  .  . 


FLXH (ID  =  MULH(Il)  *  (  RHOT (II)  -  RHOT1M  ) 
DIFF  (ID  =  RHOTD  (ID  -  RHOTD1M 
FABS(Il)  =  ABS  (  FLXH (II)  ) 


Appendix_A 

FSGN  (ID  =  SIGN  (  DIFF1 ,  DIFF(Il)  > 

Do  3  I  =  IIP,  IN 

FLXH(I)  =  MULH(I)  *  (  RHOT(I)  -  RHOT(I-l)  ) 

3  DIFF(I)  =  RHOTD(I)  -  RHOTD(I-l) 

FLXH(INP)  =  MULH(INP)  *  (  RHOTNP  -  RHOT(IN)  ) 

DIFF(INP)  =  RHOTDNP  -  RHOTD ( IN) 

c  Calculate  the  magnitude  &  sign  of  the  antidif fusive  flux  followed 
c  by  the  flux-limiting  changes  on  the  right  and  left  .  .  . 

c - 

Do  4  I  =  II,  IN 

FABSU+l)  =  ABS  (  FLXH  (1+1)  ) 

FSGN(I+1)  =  SIGN  (  DIFF1,  DIFF(I+1)  ) 

TERM (1+1)  =  FSGN(I+1 ) *LN { I ) *DIFF ( I ) 

4  TERP(I)  =  FSGN ( I ) *LN (I) *DIFF ( 1+1) 

If  (  PBC  )  Then 

TERP(INP)  =  TERP (II) 

TERM (II)  =  TERM ( INP ) 

Else 

TERP (INP)  =  BIGNUM 
TERM (II)  =  BIGNUM 
End  If 

c  Correct  the  transported  fluxes  completely  and  then  calculate  the 

c  new  Flux-Corrected  Transport  densities  .  .  . 

C - 

FLXH (II)  =  FSGN (11)  *  AMAX1  (  0.0, 

&  AMIN1  (  TERM* ID,  FABS(Il),  TERP(Il)  )  ) 

Do  5  I  =  II,  IN 

FLXH (1+1)  =  FSGN ( 1+1 )  *  AMAX1  (  0.0, 

&  AMIN1  (  TERM(I+1),  FABS(I+1),  TERP (1+1)  )  ) 

RHON(I)  *  RLN ( I )  *  (  LNRHOT(I)  +  (FLXH(I)  -  FLXH ( 1+1) }  ) 

5  SOURCE (I)  =0.0 

Return 

End 

Subroutine  CONSERVE  (  RHO,  II,  IN,  CSUM  ) 

- - 

c 

c  Description:  This  routine  computes  the  ostensibly  conserved  sum. 

c  Beware  your  boundary  conditions  and  note  that  only  one  continuity 

c  equation  is  summed  for  each  call  to  this  subroutine, 

c 

cell  values  for  physical  variable  'RHO'  I 
first  cell  to  be  integrated  I 

last  cell  to  be  integrated  I 

value  of  the  conservation  sum  of  rho  O 
c 

- - 


c 

Arguments : 

c 

RHO 

Real  Array (NPT) 

c 

11 

Integer 

c 

IN 

Integer 

c 

CSUM 

Real 

Implicit  NONE 


I 
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Integer  NPT,  I,  II,  IN 
Parameter  (  NPT  =  202  ) 

Real  CSUM,  RHO(NPT) 

c  /FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 

Real  LO (NPT) ,  LN(NPT) ,  AH  (NPT) 

Real  RLN(NPT) ,  LH  (NPT),  RLH(NPT) 

Real  ROH ( NPT ) ,  RNH ( NPT ) ,  ADUGTH ( NPT ) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 

c  Compute  the  ostensibly  conserved  total  mass  (BEWARE  B.C.)  .  .  . 

c - 

CSUM  =0.0 
Do  80  I  =  II,  IN 

80  CSUM  =  CSUM  +  LN(I)*RHO(I) 

Return 

End 

Subroutine  COPYGRID  (  MODE,  II,  IN  ) 

c - 

c 

c  Description:  This  Subroutine  makes  a  complete  copy  of  the  grid 

c  variables  defined  by  the  most  recent  call  to  MAKEGRID  from  cell 

c  II  to  IN  including  the  boundary  values  at  interface  IN+1  when  the 

c  argument  MODE  =  1.  When  MODE  =  2,  these  grid  variables  are  reset 

c  from  common  block  OLD_GRID.  This  routine  is  used  where  the  same 

c  grid  is  needed  repeatedly  after  some  of  the  values  have  been  over- 

c  written,  for  example,  by  a  grid  which  moves  between  the  halfstep 

c  and  the  whole  step. 


c 

c  Argument : 


c 

11 

Integer 

first  cell  index 

I 

c 

IN 

Integer 

last  cell  index 

I 

c 

MODE 

Integer 

=  1  grid  variables  copied  into  OLD_GRID 

I 

c 

c 

=  2  grid  restored  from  OLD_GRID  common 

I 

c - 

Implicit  NONE 

Integer  NPT,  I,  MODE,  II,  IN 
Parameter  (  NPT  =202  ) 

c  /OLD_GRID/  Holds  geometry,  grid,  area  and  volume  information 

Real  LOP (NPT) ,  LNP(NPT),  AHP(NPT) 

Real  RLNP(NPT),  RLHP(NPT),  LHP (NPT) 

Real  ROHP(NPT),  RNHP(NPT),  ADUGTHP (NPT) 

Common  /OLD_GRID/  LOP,  LNP,  AHP,  RLNP,  LHP,  RLHP, 

&  ROHP,  RNHP,  ADUGTHP 

c  /FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 

Real  LO(NPT),  LN (NPT) ,  AH  (NPT) 

Real  RLN (NPT) ,  LH  (NPT),  RLH (NPT) 

Real  ROH ( NPT ) ,  RNH (NPT) ,  ADUGTH ( NPT ) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 

C - 
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101 


102 


201 


202 


1001 


MODE  .eq. 

.  1  )  Then 

.  101  I  = 

11,  IN 

LOP ( I ) 

=  LO ( I ) 

LNP(I) 

=  LN ( I ) 

RLNP(I) 

=  RLN(I) 

>  102  I  = 

11,  IN+1 

AHP(I) 

=  AH  ( I ) 

LHP ( I ) 

=  LH { I ) 

RLHP(I) 

=  RLH(I) 

ROHP ( I ) 

=  ROH(I) 

RNHP(I) 

=  RNH(I) 

ADUGTHP (I)  =  ADUGTH(I) 

Else  If  (  MODE  .eq.  2  )  Then 
Do  201  I  =  II,  IN 
LO(I)  =  LOP ( I ) 

LN(I)  =  LNP(I) 

RLN(I)  =  RLNP(I) 

Do  202  I  =  II,  IN+1 
AH{I)  =  AHP(I) 

LH(I)  =  LHP ( I ) 

RLH(I)  =  RLHP(I) 

ROH(I)  =  ROHP(I) 

RNH(I)  =  RNHP(I) 

ADUGTH(I)  =  ADUGTHP ( I ) 

Else 

Write  (  6,  1001  )  MODE 

End  If 

Format  (  '  COPYGRID  Error !  MODE  = ' , 


13, 


(not  1  or  2 i ) ' 


Return 

End 


<•: : 


C============= 


Block  Data  FCTBLK 


c - 

Implicit  NONE 
Integer  NPT 
Parameter  (  NPT  =202  ) 

c  /FCTJMISC/  Holds  the  source  array  and  diffusion  coefficient 
Real  SOURCE (NPT),  DIFF1 

Common  /FCT _MISC/  SOURCE,  DIFF1 

Data  SOURCE  /  NPT*0.0  /,  DIFF1  /  0.999  / 

End 

C================================================================ 


Subroutine  NEW_GRID  (  RADHN,  II,  INP,  ALPHA  ) 


C - 

c 

c  Description:  This  Subroutine  initializes  geometry  variables  and 

c  coefficients  when  the  most  recent  call  to  MAKEGRID  used  the  same 

c  set  of  values  RADHO  and  only  the  new  interface  locations  RADHN  are 
c  different.  NEW_GRID  is  computationally  more  efficienty  than  the 

c  complete  grid  procedure  in  MAKEGRID  because  several  formulae  do 


nnoo  n  o  on 
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c 

not  need  to  be  recomputed 

The  grid  should  generally  be  defined 

c 

for  the 

entire  number  of 

grid  interfaces  from  1  to  INP,  however 

c 

subsets 

of  the  entire  grid  may  be  reinitialized  with  care. 

c 

c 

Arguments : 

c 

RADHN 

Real  Array (INP) 

new  cell  interface  positions 

I 

c 

11 

Integer 

first  interface  index 

I 

c 

INP 

Integer 

last  interface  index 

I 

c 

ALPHA 

Integer 

=  1  for  cartesian  geometry 

I 

c 

=  2  for  cylindrical  geometry 

I 

c 

=  3  for  spherical  geometry 

I 

c 

=  4  general  geometry  (user  supplied) 

I 

Implicit  NONE 

Integer  NPT,  II,  IIP,  I,  IN,  INP,  ALPHA 
Parameter  (  NPT  =202  ) 

Real  RADHN(INP),  PI,  FTPI 


/FCT_SCRH/ 

Real 

Real 

Real 

Real 

Common 

& 


Holds  scratch  arrays  for  use  by 


SCRH(NPT) , 
FLXH(NPT)  , 

TERM  (NPT)  , 
LORHOT(NPT) , 
/FCT_SCRH/  SCRH 
TERM 


SCRl(NPT) , 
FABS (NPT) , 
TERP (NPT) , 
RHOT(NPT) , 
SCR1 ,  DIFF, 
TERr\  LNRHOT 


LCPFCT  and  CNVFCT 
DIFF (NPT) 

FSGN(NPT) 

LNRHOT (NPT) 
RHOTD(NPT) 

FLXH,  FABS,  FSGN, 
LORHOT,  RHOT,  RHOTD 


/FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 


Real  LO (NPT) ,  LN (NPT) ,  AH  (NPT) 

Real  RLN(NPT) ,  LH  (NPT),  RLH(NPT) 

Real  ROH(NPT),  RNH(NPT),  ADUGTH (NPT) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 

DATA  PI,  FTPI  /3. 1415927,  4.1887902/ 


IIP  =11+1 
IN  =  INP  -  1 


Store  the  old  and  new  grid  interface  locations  from  input  and  then 
update  the  new  and  average  interface  and  grid  coefficients  .  .  . 


Do  1  I  =  II,  INP 
1  RNH (I)  =  RADHN(I) 

c  Select  the  choice  of  coordinate  systems  .  . 

C - 

Go  To  (100,  200,  300,  400),  ALPHA 


c  Cartesian  coordinates  .  .  . 

C - 

100  AH ( INP)  =  1.0 

Do  101  I  =  II,  IN 

101  LN ( I )  =  RNH ( 1+1)  -  RNH(I) 

Go  To  500 

c  Cylindrical  Coordinates:  RADIAL  .  .  . 

c - 

200  DIFF ( II )  =  RNH ( II ) *RNH ( II ) 


n  n 
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AH(INP)  =  PI*  £ROH ( INP)  +  RNH(INP)) 

DO  201  I  =  II,  IN 

AH  ( I )  =  PI* {ROH ( I )  +  RNH(I)) 

DIFF (1+1)  =  RNH ( 1+1 ) *RNH ( 1+1 ) 

LN { I )  =  PI* (DIFF ( 1+1 )  -  DIFF(I)) 

Go  To  500 

Spherical  Coordinates:  RADIAL  .  .  . 


300  DIFF (II)  =  RNH (II) *RNH (II ) *RNH (II) 

SCRH(INP)  =  (ROH (INP)  +  RNH ( INP) ) *ROH ( INP) 

AH (INP)  =  FTPI* (SCRH(INP)  +  RNH ( INP) *RNH ( INP) ) 
DO  301  I  =  II,  IN 

DIFF ( 1+1 )  =  RNH ( 1+1 ) *RNH ( 1+1 ) *RNH ( 1+1 ) 
SCRH(I)  =  ( ROH ( I )  +  RNH ( I ) ) *R0H ( I ) 

AH (I)  =  FTPI* (SCRH(I)  +  RNH ( I ) *RNH ( I ) ) 

301  LN ( I }  =  FTPI*  (DIFF(I-t-l)  -  DIFF  (I)) 

Go  To  500 


c  Special  Coordinates:  Areas  and  Volumes  are  User  Supplied  . 

c - 

400  Continue 


c  Additional  system  independent  geometric  variables  .  .  . 
c - 

500  Do  501  I  =  II,  IN 

501  RLN(I)  =  1 . 0/LN ( I ) 

LH (II)  =  LN(I1) 

RLH(Il)  =  RLN(Il) 

Do  502  I  =  IIP,  IN 

LH ( I )  =  0 .5* (LN(I)  +  LN(I-l)) 

502  RLH(I)  =  0 . 5  * ( RLN ( I )  +  RLN(I-l)) 

LH ( INP)  =  LN(IN) 

RLH(INP)  =  RLN ( IN) 

Do  503  I  =  II,  INP 

503  ADUGTH ( I )  =  AH  ( I )  *  (RNH  ( I )  -  ROH ( I ) ) 


Return 

End 


C 


Subroutine  RESIDIFF  (  DIFFA  ) 


C - 

c 

c  Description:  Allows  the  user  to  give  FCT  some  residual  numerical 

c  diffusion  by  making  the  anti-diffusion  coefficient  smaller, 

c 

c  Arguments: 

c  DIFFA  Real  Replacement  residual  diffusion  coefficient  I 

c  Defaults  to  0.999  but  could  be  as  high  as  1.0000 

c 

c - 

Implicit  NONE 
Integer  NPT 
Real  DIFFA 

Parameter  (  NPT  =  202  ) 

c  /FCT_MISC/  Holds  the  source  array  and  diffusion  coefficient 


no  nn  o  o  no 
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Real  SOURCE (NPT),  DIFF1 

Common  /FCT_MISC/  SOURCE,  DIFF1 


DIFF1  =  DIFFA 


Return 

End 


C 


Subroutine  SET_GRID  (  RADR,  II,  IN  ) 


c - 

c 

c  Description:  This  subroutine  includes  the  radial  factor  in  the 
c  cell  volume  for  polar  coordinates.  It  must  be  preceeded  by  a  call 

c  to  MAKE_GRID  with  ALPHA  =  1  to  establish  the  angular  dependence  of 

c  the  cell  volumes  and  areas  and  a  call  to  COPY_GRID  to  save  this 

c  angular  dependence.  The  angular  coordinate  is  measured  in  radians 

c  (0  to  2  pi)  in  cylindrical  coordinates  and  cos  theta  (1  to  -1)  in 

c  spherical  coordinates.  SET_GRID  is  called  inside  the  loop  over 

c  radius  in  a  multidimensional  model  to  append  the  appropriate 

c  radial  factors  when  integrating  in  the  angular  direction, 

c 

c  Arguments : 

c  RADR  Real  radius  of  cell  center  I 

c  II  Integer  first  cell  index  I 

c  IN  Integer  last  cell  index  I 


Implicit  NONE 

Integer  NPT,  II,  IIP,  I,  IN,  INP 
Real  RADR 

Parameter  (  NPT  =202  ) 


/OLD_GRID/ 

Real 

Real 

Real 

Common 

& 


Holds  geometry,  grid,  area  and  volume  information 
LOP (NPT) ,  LNP(NPT),  AHP(NPT) 

RLNP(NPT),  RLHP(NPT),  LHP (NPT) 

ROHP(NPT),  RNHP(NPT),  ADUGTHP (NPT) 

/OLD_GRID/  LOP,  LNP,  AHP,  RLNP,  LHP,  RLHP, 

ROHP,  RNHP,  ADUGTHP 


/FCT_GRID/  Holds  geometry,  grid,  area  and  volume  information 
Real  LO (NPT) ,  LN (NPT) ,  AH  (NPT) 

Real  RLN(NPT),  LH  (NPT),  RLH(NPT) 

Real  ROH ( NPT ) ,  RNH ( NPT ) ,  ADUGTH ( NPT ) 

Common  /FCT_GRID/  LO,  LN,  AH,  RLN,  LH,  RLH,  ROH,  RNH,  ADUGTH 


IIP  =11+1 
INP  =  IN  +  1 


Multiply  each  volume  element  by  the  local  radius 
DO  100  I  =  II,  IN 
LN(I)  =  LNP ( I ) *RADR 
100  LO ( I )  =  LOP ( I ) *RADR 

Additional  system  independent  geometric  variables  .  .  . 


500 


Do  501  I  =  II,  IN 


n  o 


501 


502 
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RLN(I)  =  1 . 0/LN ( I ) 

LH (II)  =  LN(I1) 

RLH(Il)  =  RLN(Il) 

Do  502  I  =  IIP,  IN 

LH  ( I )  =  0 . 5* {LN ( I)  +  LN(I-l)) 

RLH(I)  =  0.5* (RLN( I )  +  RLN(I-l) 
LH(INP)  =  LN { IN) 

RLH(INP)  =  RLN { IN) 


) 


Return 

End 


Subroutine  ZERODIFF  (  IND  ) 


C - 

c 

c  Description:  This  Subroutine  sets  the  FCT  diffusion  and  anti- 

c  diffusion  parameters  to  zero  at  the  specified  cell  interface  to 

c  inhibit  unwanted  diffusion  across  the  interface.  This  routine  is 

c  used  for  inflow  and  outflow  boundary  conditions.  If  argument  IND 

c  is  positive,  the  coefficients  at  that  particular  interface  are 
c  reset.  If  IND  is  negative,  the  list  of  NIND  indices  in  INDEX  are 

c  used  to  reset  that  many  interface  coefficients, 

c 

c  Argument : 

c  IND  Integer  index  of  interface  to  be  reset  I 


Implicit  NONE 

Integer  NPT,  NINDMAX,  IND,  IS,  I 
Parameter  (  NPT  =202,  NINDMAX  =  150  ) 

c  /FCT_NDEX/  Holds  a  scalar  list  of  special  cell  information  .  .  . 

Real  SCALARS (NINDMAX) 

Integer  INDEX (NINDMAX) ,  NIND 

Common  /FCT_NDEX/  NIND,  INDEX,  SCALARS 

c  /FCT_VELO/  Holds  velocity -dependent  flux  coefficients 

Real  HADUDTH (NPT) ,  NULH(NPT),  MULH(NPT) 

Real  EPSH(NPT) ,  VDTODR (NPT) 

Common  /FCT_VELO/  HADUDTH,  NULH,  MULH,  EPSH,  VDTODR 

C - 

If  (  IND  .gt.  0  )  Then 
NULH (IND)  =0.0 
MULH (IND)  =0.0 
Else  If  (  IND  .le.  0  )  Then 

If  (  NIND. It. 1  .or.  NIND. gt .NINDMAX  .or.  IND.eq.O  )  Then 
Write  (  6,*  )  '  ZERODIFF  Error!  IND,  NIND  =',  IND,  NIND 
Stop 
End  If 

Do  IS  =  1,  NIND 
I  =  INDEX ( IS ) 

NULH (I)  =0.0 
MULH (I)  =0.0 
End  Do 
End  If 


o  o 
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Return 

End 


C======= 


Subroutine  ZEROFLUX  (  IND  ) 


C - 

c 

c  Description:  This  Subroutine  sets  all  the  velocity  dependent  FCT 

c  parameters  to  zero  at  the  specified  cell  interface  to  inhibit 

c  transport  fluxes  AND  diffusion  of  material  across  the  interface, 

c  This  routine  is  needed  in  solid  wall  boundary  conditions.  If  IND 

c  is  positive,  the  coefficients  at  that  particular  interface  are 

c  reset.  If  IND  is  negative,  the  list  of  NIND  indices  in  INDEX  are 

c  used  to  reset  that  many  interface  coefficients, 

c 

c  Argument : 

c  IND  Integer  index  of  interface  to  be  reset  I 


Implicit  NONE 

Integer  NPT,  NINDMAX,  IND,  IS,  I 
Parameter  (  NPT  =  202,  NINDMAX  =  150  ) 

c  /FCT_NDEX/  Holds  a  scalar  list  of  special  cell  information  .  .  . 

Rea 1  SCALARS ( NINDMAX ) 

Integer  INDEX (NINDMAX) ,  NIND 

Common  /FCT_NDEX/  NIND,  INDEX,  SCALARS 

c  /FCT_VELO/  Holds  velocity -dependent  flux  coefficients 

Real  HADUDTH { NPT ) ,  NULH(NPT),  MULH(NPT) 

Real  EPSH(NPT),  VDTODR(NPT) 

Common  /FCTJVELO/  HADUDTH,  NULH,  MULH,  EPSH,  VDTODR 


If  (  IND  .gt.  0  )  Then 
HADUDTH (IND)  =0.0 
NULH (IND)  =0.0 
MULH (IND)  =0.0 
Else  If  (  IND  .le.  0  )  Then 

If  (  NIND. It. 1  .or.  NIND. gt. NINDMAX  .or.  IND.eq.O  )  Then 
Write  (  6,*  )  '  ZEROFLUX  Error!  IND,  NIND  =',  IND,  NIND 
Stop 
End  If 

Do  IS  =  1,  NIND 
I  =  INDEX (IS) 

HADUDTH ( I )  =0.0 
NULH ( I )  =  0.0 
MULH (I)  =0.0 
End  Do 
End  If 


C===== 


Return 

End 


Program  CONVECT 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CONSTANT  VELOCITY  CONVECTION  -  LCPFCT  Test  #  1  August  1992 

This  program  runs  three  periodic  convection  problems  using  LCPFCT  and 
the  FCT  utility  routines  .  The  three  profiles  are  the  square  wave,  a 
semicirle,  and  a  Gaussian  peak.  The  velocity  is  constant  in  space  and 
time  and  the  grid  is  kept  stationary. 


Implicit  NONE 


Integer 

Parameter 

Logical 

Integer 

Integer 

Real 

Real 

Real 

Real 

Real 

Real 

Real 


NPT, 

(  NPT  =  202  ) 

USE_LCP 

ISTEP, 

MAXSTP, 

DX,  DT, 
CSQUARE, 
ISQUARE, 
ESQUARE, 
ASQUARE (NPT) , 
SQUARE (NPT) , 
XINT(NPT) , 


NX, 


JSTEP, 

I PRINT, 

VELX, 

CCIRCLE, 

ICIRCLE, 

ECIRCLE, 

AC IRCLE ( NPT ) , 
CIRCLE (NPT) , 
VINT (NPT) 


NXP 


I 

LOUT 

TIME,  XCELL 
CGAUSSP 
IGAUSSP 
EGAUSSP 
AGAUSSP (NPT) 
GAUSS P (NPT) 


1000  Format  ( 
& 

Sc 

1001  Format  ( 
& 

1002  Format  ( 

1003  Format  ( 

1004  Format  ( 


•l',/,'  LCPFCT  Test  #1  -  Constant  V  Convection:', 

'  step  =  ',  14,  '  and  TIME  =  ',  F7.3,  /,  10X, 

'with  DX  =',  F6.3,  '  DT  «',  F6.3,  '  and  VX  =',  F6.3,  /) 

'  I  X(I)  Square  exact  Circle  ', 

'  exact  Gaussian  exact'  ) 

15,  7F10.5  ) 

IX,  /,  '  Conserved  sums',  6F10.5  ) 

'  Absolute  error',  F10.5,  10X,  F10.5,  10X,  F10.5  ) 


c  The  Constant  Velocity  Convection  control  parameters  are  initialized, 
c  (change  here  for  other  cases)  .  .  . 

C - 


USE_LCP 

— 

.true. 

!  Use  the  LCPFCT  routine  rather  than  CNVFCT 

NX 

= 

50 

!  Number  of  cells  in  the  periodic  system 

DX 

= 

1.0 

!  Cell  size 

DT 

= 

0.2 

!  Timestep  for  the  calculation 

VELX 

s 

1.0 

!  Constant  X  velocity,  VELX*DT/DX  =  0.2 

MAXSTP 

= 

501 

!  Number  of  timesteps,  two  cycles  of  the  system 

LOUT 

11 

!  Logical  unit  number  of  printed  output  device 

I PRINT 

= 

125 

i  Printout  frequency,  fluid  moves  25  cells 

c  The  grid,  velocity,  and  three  density  profiles  are  initialized  .  .  . 

- - 

NXP  =  NX  +  1 
Do  1  I  =  1,  NXP 

XINT(I)  =  FLOAT ( I - 1 ) *DX 
1  VINT { I )  =  VELX 


Call  PROFILE  (  1,  TIME,  SQUARE,  XINT,  NX,  NXP,  VELX  ) 
Call  PROFILE  (  2,  TIME,  CIRCLE,  XINT,  NX,  NXP,  VELX  ) 


n  n  o  o  o  n  n  o 


Call  PROFILE  (  3, 
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TIME,  GAUSSP,  XINT,  NX,  NXP,  VELX  ) 


Set  residual  diffusion,  grid,  and  velocity  factors  in  LCPFCT  .  .  . 


Call  RESIDIFF  (  1.0000  ) 

Call  MAKEGRID  (  XINT,  XINT,  1,  NXP,  1  ) 
Call  VELOCITY  {  VINT,  1,  NXP,  DT  ) 

Begin  loop  over  timesteps  .  .  . 


TIME  =0.0 

Do  9999  ISTEP  =  1,  MAXSTP 
Results  are  printed  as  required  .  .  . 


If  {  MOD(ISTEP-l, IPRINT)  .eq.  0  )  Then 
JSTEP  =  ISTEP  -  1 

Write  (  LOUT,  1000  )  JSTEP,  TIME,  DX,  DT,  VELX 
Write  (  LOUT,  1001  ) 

Call  PROFILE  (  1,  TIME,  ASQUARE,  XINT,  NX, NXP,  VELX  ) 

Call  PROFILE  (  2,  TIME,  ACIRCLE,  XINT,  NX, NXP,  VELX  ) 

Call  PROFILE  (  3,  TIME,  AGAUSSP,  XINT,  NX, NXP,  VELX  ) 

ESQUARE  =0.0 

ECIRCLE  =0.0 

EGAUSSP  =0.0 

Do  100  I  =  1,  NX 

XCELL  =  XINT ( I )  +  0 . 5  *DX 

ESQUARE  =  ESQUARE  +  ABS ( SQUARE ( I )  -  ASQUARE ( I ) ) 
ECIRCLE  =  ECIRCLE  +  ABS (CIRCLE ( I)  -  ACIRCLE ( I) ) 

EGAUSSP  =  EGAUSSP  +  ABS (GAUSSP(I)  -  AGAUSSP (I)) 

100  Write  (  LOUT,  1002  )  I,  XCELL,  SQUARE(I),  ASQUARE(I) , 

&  CIRCLE (I) ,  ACIRCLE (I) ,  GAUSSP (I) ,  AGAUSSP ( I ) 


Call 

CONSERVE  ( 

SQUARE, 

1, 

NX, 

CSQUARE 

) 

Call 

CONSERVE  ( 

CIRCLE, 

1, 

NX, 

CCIRCLE 

) 

Call 

CONSERVE  ( 

GAUSSP, 

1, 

NX, 

CGAUSSP 

) 

If  ( 

ISTEP  .eq. 

1  }  Then 

I SQUARE  =  CSQUARE 
ICIRCLE  =  CCIRCLE 


I GAUSSP  =  CGAUSSP 
End  If 

Write  (  LOUT,  1003)  CSQUARE,  ISQUARE,  CCIRCLE,  ICIRCLE, 
&  CGAUSSP,  I GAUSSP 

ESQUARE  =  ESQUARE /CSQUARE 
ECIRCLE  =  ECIRCLE /CCIRCLE 
EGAUSSP  =  EGAUSSP/CGAUSSP 

Write  (  LOUT,  1004)  ESQUARE,  ECIRCLE,  EGAUSSP 
End  If 


Advance  the  densities  one  timestep  using  LCPFCT  and  CNVFCT  .  .  . 


If  (  USE_LCP  )  Then 


Call 

LCPFCT 

( 

SQUARE, 

SQUARE, 

1, 

NX, 

0.,0. 

,0. 

,0., 

.true . ) 

Call 

LCPFCT 

( 

CIRCLE, 

CIRCLE, 

1, 

NX, 

o.,o. 

,0. 

,0., 

.true . ) 

Call 

Else 

LCPFCT 

( 

GAUSSP, 

GAUSSP, 

1, 

NX, 

o.,o. 

,0. 

,0., 

. true . ) 

Call 

CNVFCT 

( 

SQUARE, 

SQUARE, 

1, 

NX, 

o . ,  o . 

,0. 

,0., 

.true . ) 

Call 

CNVFCT 

( 

CIRCLE, 

CIRCLE, 

1, 

NX, 

0.,0. 

,0. 

,0., 

. true . ) 

Call 
End  If 

CNVFCT 

( 

GAUSSP, 

GAUSSP, 

1. 

NX, 

o.,o. 

,0. 

,0., 

.true . ) 

no  no 
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TIME  =  TIME  +  DT 

999  ■>  Continue  !  End  of  the  timestep  loop. 

Stop 

End 


C 


Subroutine  PROFILE  (  TYPE,  TIME,  ARRAY,  XINT,  NX,  NXP,  VX  ) 


C - - - 

c 

c  This  subroutine  computes  three  different  analytic  density  profiles 
c  depending  on  the  velue  of  TYPE  .  .  . 
c 

c  TYPE  =  1  Square  wave  profile  between  0.0  and  HEIGHT 

c  TYPE  =  2  Semicircular  (elliptical)  profile  from  0.0  to  HEIGHT 

c  TYPE  =  3  Gaussian  peak  profile  between  0.0  and  HEIGHT 

c 

c  The  profiles  are  presented  on  a  periodic  domain  NX  ceils  long  and  a 
c  crude  integration  is  done  within  each  cell  to  better  approximate  the 
c  curved  functions  and  to  give  an  analytic  approximation  accounting  for 
c  convection  across  a  partial  cell. 


Implicit 

Integer 

Real 

Real 

Data 


NONE 

TYPE,  NX,  NXP,  I,  K 

ARRAY (NX) ,  XINT (NXP) ,  TIME,  VX,  SYSLEN,  ARG 
HEIGHT,  X0,  WIDTH,  XLEFT,  XK,  XRIGHT,  XCENT 
HEIGHT,  X0,  WIDTH  /  1.0,  20.0,  10.0  / 


SYSLEN  =  XINT (NXP) 

Go  To  (  100,  200,  300  ),  TYPE 


Compute  the  profile  of  the  square  wave  .  .  . 


100  XLEFT  =  (X0  -  WIDTH)  +  VX*TIME 

101  If  (  XLEFT  .gt.  SYSLEN  )  Then 

XLEFT  =  XLEFT  -  SYSLEN 
Go  To  101 
End  If 

102  If  (  XLEFT  .It.  0.0  )  Then 

XLEFT  =  XLEFT  +  SYSLEN 
Go  To  102 
End  If 

XRIGHT  =  XLEFT  +  2.0 ‘WIDTH 

c  Loop  over  the  cells  in  the  numerical  profile  to  be  determined  .  .  . 
Do  120  I  =  1,  NX 
ARRAY (I)  =0.0 
Do  110  K  =  1,  10 

XK  =  XINT (I)  +  0.1* (FLOAT (K) -0.5)* (XINT( 1+1 )  -  XINT(I)) 
If  (  XK  .gt.  XLEFT  .and.  XK  .It.  XRIGHT  )  Then 
ARRAY (I)  =  ARRAY ( I )  +  0.1*HEIGHT 
Else 

XK  =  XK  +  SYSLEN 

If  (  XK  .gt.  XLEFT  .and.  XK  .It.  XRIGHT  )  Then 
ARRAY (I)  =  ARRAY (I)  +  0.1*HEIGHT 


u  o  o  o  u 
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End  If 
End  If 

110  Continue 

120  Continue 
Return 

Compute  the  profile  of  the  semicircle  density  hump  .  .  . 


200  XLEFT  =  (X0  -  WIDTH)  +  VX*TIME 

201  If  (  XLEFT  .gt.  SYSLEN  )  Then 

XLEFT  =  XLEFT  -  SYSLEN 
Go  To  201 
End  If 

XRIGHT  =  XLEFT  +  2.0*WIDTH 

202  If  (  XLEFT  .It.  0.0  )  Then 

XLEFT  *  XLEFT  +  SYSLEN 
Go  To  202 
End  If 

XRIGHT  =  XLEFT  +  2.0 ‘WIDTH 

Loop  over  the  cells  in  the  numerical  profile  to  be  determined  .  .  . 
Do  220  I®1,  NX 
ARRAY (I)  =  0.0 
Do  210  K  =  1,  10 

XK  =  XINT(I)  +  0.1* (FLOAT (K) -0.5)* (XINT ( 1+1 )  -  XINT(I)) 
If  (  XK  .gt.  XLEFT  .and.  XK  .It.  XRIGHT  )  Then 
XCENT  =  XLEFT  +  WIDTH 
ARRAY ( I )  =  ARRAY ( I )  +  0.1*HEIGHT* 

&  SQRT  (  1.0  -  ((XK  -  XCENT) /WIDTH) * *2  ) 

Else 

XK  *  XK  +  SYSLEN 

If  (  XK  .gt.  XLEFT  .and.  XK  .It.  XRIGHT  )  Then 
XCENT  =  XLEFT  +  WIDTH 
ARRAY (I)  *  ARRAY (I)  +  0.1*HEIGHT* 

&  SQRT  (  1.0  -  ({XK  -  XCENT) /WIDTH) **2  ) 

End  If 
End  If 

210  Continue 

220  Continue 
Return 


Compute  the  profile  of  the  Gaussian  density  hump 


300  XCENT  =  X0  +  VX*TIME 

301  If  {  XCENT  .gt.  SYSLEN  )  Then 

XCENT  =  XCENT  -  SYSLEN 
Go  To  301 
End  If 

302  If  (  XCENT  .It.  0.0  )  Then 

XCENT  =  XCENT  +  SYSLEN 
Go  To  302 
End  If 

c  Loop  over  the  cells  in  the  numerical  profile  to  be  determined  .  .  . 
Do  320  I  =  1,  NX 
ARRAY (I)  =  0.0 
Do  310  K  =  1,  10 

XK  =  XINT(I)  +  0.1* (FLOAT(K) -0.5)* (XINT ( 1+1 )  -  XINT(I)) 
If  (  XK  .gt.  (XCENT  +  0.5*SYSLEN)  )  XK  =  XK  -  SYSLEN 
If  (  XK  .It.  (XCENT  -  0 . 5*SYSLEN)  )  XK  =  XK  +  SYSLEN 
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ARG  =  4 . 0* ( (XK  -  XCENT) /WIDTH) **2 

ARRAY { I )  =  ARRAY (I)  +  0 . 1*HEIGHT/EXP (AMIN1 (30.0, ARG) ) 
310  Continue 

320  Continue 


Return 

End 


Iff 

Hi 

F 

3j§y 

■ 

Appendix_B 

f/y  } 

LCPFCT  Test 

#1  -  Constant  V  Convection: 

step  =  125 

and  TIME 

=  25.000 

with  DX  =  1.000 

DT  =  0.200 

and  vx  = 

1.000 

I 

X(I) 

Square 

exact 

Circle 

exact 

Gaussian 

exact 

1 

0.50000 

0.99997 

1.00000 

0.87922 

0.83446 

0.30138 

0.29959 

2 

1.50000 

0.99996 

1.00000 

0.83082 

0.75899 

0.18598 

0.18597 

3 

2.50000 

0.99973 

1.00000 

0.67214 

0.66001 

0.10652 

0.10662 

4 

3 .50000 

0.94484 

1.00000 

0.43972 

0.52391 

0.05614 

0.05645 

5 

4.50000 

0.64565 

1.00000 

0.21917 

0.29441 

0.02694 

0 . 02761 

6 

5.50000 

0.30888 

0.00000 

0.07347 

0.00000 

0.01162 

0.01247 

7 

6.50000 

0.09164 

0.00000 

0.01098 

0.00000 

0.00444 

0.00520 

8 

7.50000 

0.00935 

0.00000 

0.00000 

0.00000 

0.00145 

0.00200 

9 

8.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00034 

0.00071 

10 

9.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00002 

0.00023 

11 

10.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00007 

12 

11.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00002 

13 

12.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00001 

14 

13.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

15 

14.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

16 

15.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

17 

16.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

18 

17.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

19 

18.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

20 

19.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

21 

20.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

22 

21.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

23 

22.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

24 

23.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

25 

24.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

26 

25.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

27 

26.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00001 

0.00000 

28 

27.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00002 

0 .00001 

29 

28.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00002 

0.00002 

30 

29.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00003 

0.00007 

31 

30.50000 

0.00003 

0.00000 

0.00006 

0.00000 

0.00005 

0.00023 

32 

31.50000 

0.00004 

0.00000 

0.00013 

0.00000 

0.00199 

0.00071 

33 

32.50000 

0.00027 

0.00000 

0.00026 

0.00000 

0.00350 

0.00200 

34 

33  .^0000 

0  05516 

n  noooo 

0.00122 

0.00000 

0.00380 

0.00520 

35 

34.50000 

0.35436 

0.00000 

0.07445 

0.00000 

0.00488 

0.01247 

36 

35.50000 

0.69113 

1.00000 

0.27283 

0.29439 

0.03055 

0.02761 

37 

36.50000 

0.90836 

1.00000 

0.48122 

0.52390 

0.08288 

0.05645 

38 

37.50000 

0.99065 

1.00000 

0.64240 

0.66000 

0.11505 

0.10661 

39 

38.50000 

1.00000 

1.00000 

0.75278 

0.75899 

0.15126 

0.18596 

40 

39.50000 

1.00000 

1.00000 

0.83335 

0.83445 

0.25564 

0.29959 

41 

40.50000 

1.00000 

1.00000 

0.89806 

0.89245 

0.44938 

0.44576 

42 

41.50000 

1.00000 

1.00000 

0.94672 

0.93625 

0.67349 

0.61258 

43 

42.50000 

1.00000 

1.00000 

0.97553 

0.96779 

0.83938 

0.77751 

44 

43.50000 

1.00000 

1.00000 

0.98617 

0.98826 

0.90622 

0.91146 

45 

44.50000 

1.00000 

1.00000 

0.98710 

0.99833 

0.91104 

0.98686 

46 

45.50000 

1.00000 

1.00000 

0.98710 

0.99834 

0.91104 

0.98686 

47 

46.50000 

1.00000 

1.00000 

0.98710 

0.98826 

0.91064 

0.91147 

48 

47.50000 

1.00000 

1.00000 

0.96931 

0.96779 

0.82071 

0.77752 

49 

48.50000 

1.00000 

1.00000 

0.90825 

0.93625 

0.64027 

0.61259 

50 

49.50000 

1.00000 

1.00000 

0.88015 

0.89245 

0.45563 

0.44577 

Conserved  sums 

20.00002 

20.00000 

15.70970 

15.70969 

8.86228 

8.86227 

Absolute  error 

0.08197 

0.04005 

0.05631 

■ -  " 
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LCPFCT  Test  #1  -  Constant  V  Convection:  step  =  500  and  TIME 


with 

DX  =  1.000 

DT  =  0.200 

and  VX  = 

1.000 

I 

X(I) 

Square 

exact 

Circle 

exact 

Gaussian 

1 

0.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

2 

1.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00004 

3 

.  2.50000 

0.00000 

0.00000 

0.00000 

0 . 00000 

0.00011 

4 

3.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . 00014 

5 

4.50000 

0.00005 

0.00000 

0.00000 

0.00000 

0.00014 

6 

5.50000 

0.00018 

0.00000 

0.00001 

0.00000 

0.00014 

7 

6.50000 

0.00065 

0.00000 

0.00001 

0.00000 

0.00019 

8 

7.50000 

0.00289 

0.00000 

0.00004 

0.00000 

0.00543 

9 

8.50000 

0.13042 

0.00000 

0.01387 

0.00000 

0.01946 

10 

9.50000 

0.39106 

0.00000 

0.11621 

0.00000 

0.02907 

11 

10.50000 

0.65869 

1.00000 

0.27572 

0.29455 

0.03172 

12 

11.50000 

0.85634 

1.00000 

0.44555 

0.52397 

0.03329 

13 

12.50000 

0.96248 

1.00000 

0.60186 

0.66005 

0.03789 

14 

13.50000 

0.99725 

1.00000 

0.73672 

0.75902 

0.12824 

15 

14.50000 

1.00000 

1.00000 

0.84563 

0.83448 

0.31265 

16 

15.50000 

1.00000 

1.00000 

0.92215 

0.89247 

0.53205 

17 

16.50000 

1.00000 

1.00000 

0.96265 

0.93626 

0.71844 

18 

17.50000 

1.00000 

1.00000 

0.97388 

0.96780 

0.83116 

19 

18.50000 

1.00000 

1.00000 

0.97423 

0.98826 

0.87123 

20 

19.50000 

1.00000 

1.00000 

0.97423 

0.99834 

0.87412 

21 

20.50000 

1.00000 

1.00000 

0.97275 

0.99833 

0.87412 

22 

21.50000 

1.00000 

1.00000 

0.96347 

0.98825 

0.87412 

23 

22.50000 

1.00000 

1.00000 

0.95660 

0.96778 

0.82358 

24 

23.50000 

1.00000 

1.00000 

0.95471 

0.93623 

0.66934 

25 

24.50000 

0.99995 

1.00000 

0.95370 

0.89243 

0.48613 

26 

25.50000 

0.99982 

1.00000 

0.92051 

0.83443 

0.32092 

27 

26.50000 

0.99935 

1.00000 

0.80082 

0.75896 

0.19435 

28 

27.50000 

0.99712 

1.00000 

0.61252 

0.65996 

0.10805 

29 

28.50000 

0.86959 

1.00000 

0.40154 

0.52384 

0.05424 

30 

29.50000 

0.60895 

1.00000 

0.21699 

0.29425 

0.02330 

31 

30.50000 

0.34132 

0.00000 

0.08919 

0.00000 

0.00746 

32 

31.50000 

0.14367 

0.00000 

0.02267 

0.00000 

0.00117 

33 

32.50000 

0.03753 

0.00000 

0.00152 

0.00000 

0.00000 

34 

33.50000 

0.00275 

0.00000 

0.00000 

0.00000 

0.00000 

35 

34.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

36 

35.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

37 

36.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

38 

37.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

39 

38.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

40 

39.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

41 

40.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

42 

41.50000 

0.00000 

0.00000 

0.00000 

7.00000 

0.00000 

43 

42.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

44 

43.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

45 

44.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

46 

45.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

47 

46.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

48 

47.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

49 

48.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

50 

49.50000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

Conserved  sums 
Absolute  error 

20.00005 

0.10505 

20.00000 

15.70975 

0.06677 

15.70969 

8.86231 

0.10650 

=100.000 


exact 
0.00000 
0.00000 
0.00001 
0.00002 
0.00007 
0.00023 
0.00071 
0.00200 
0.00520 
0.01247 
0. 02762 
0.05647 
0 . 10664 
0.18600 
0.29964 
0.44582 
0.61265 
0.77758 
0.91151 
0.98687 
0.98684 
0.91142 
0.77746 
0.61252 
0.44570 
0.29954 
0.18593 
0.10659 
0.05644 
0.02760 
0.01247 
0.00520 
0.00200 
0.00071 
0 . 00023 
0.00007 
0.00002 
0 . 00001 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 

8.86227 


o  o  n n  o  no 
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Program  SHOCK 


c - - 

c 

c  PROGRESSING  ID  GASHYN’-dlC  SHOCK  -  LCPFCT  Test  #  2  August  1992 

c 

c  This  program  runs  a  simple  ID  gasdynamic  shock  through  a  uniform 

c  grid  using  LCPFCT  and  its  utility  routines.  The  fluid  is  ideal  and 

c  inviscid  t  ith  constant  GAMMAO  =  1.4.  The  boundary  conditions  are 

c  specified  external  values  on  both  ends  of  the  system. 


Implicit  NONE 


Integer 

Parameter 

NPT,  ALPHA,  BC1 ,  BCN, 

(  NPT  =  202  ) 

MAXSTP,  IPRINT 

Integer 

NX,  NXP, 

MX,  ISTEP, 

JSTEP,  I, 

LOUT 

Real 

MACH, 

VO, 

DELTAX, 

DELTAT 

Real 

RHOSUM, 

RHVSUM, 

PRESUM, 

ERGSUM 

Real 

VNEW (NPT) 

,  PNEW(NPT), 

TNEW(NPT)  , 

XINT(NPT) 

Real 

Real 

CSAMB, 

TIME, 

ERG_IN, 

DTMAX 

ERGAMB, 

RELAX 

Real 

RHO_IN, 

PRE_IN, 

VEL_IN, 

GAMMAO 

Real 

RHOAMB, 

PREAMB, 

VELAMB, 

GAMMAM 

Real 

RHON (NPT) 

,  RVXN(NPT), 

RVTN (NPT) , 

ERGN(NPT) 

Common 

& 

& 

/  ARRAYS 

/  RHON,  RVXN,  RVTN, 

RHO_IN,  PRE_IN,  VEL_IN, 
RHOAMB,  PREAMB,  VELAMB, 

ERGN,  RELAX 

GAMMAO, 

GAMMAM 

1000  Format  (  '1' 

,  /.  ' 

LCPFCT  Test  # 

2  -  Progressing  Shock:', 

& 

1001  Format  (2X, 

Step  =' , 
13,  1P6E12 

14,  '  NX  =', 

.4) 

13,  '  DT 

=',  F6.3,  /  ) 

1002  Format  ('  I  Density  Temperature  Pressure 

&  '  Velocity  Energy  Interfaces',  /) 

1003  Format  {'0  Conservation  Sums  /,  5X,  1PE12.4,  12X,  3E12.4,  /) 

The  Progressing  Shock  test  run  control  parameters  are  specified  here, 
(change  for  other  cases)  .  .  . 


MACH 

V0 

DELTAX 

DELTAT 

ALPHA 

LOUT 

NX 

MX 

MAXSTP 

IPRINT 


5.0  !  Mach  number  of  the  incoming  ambient  flow 

3.0  !  Shock  speed  in  the  lab  frame 

1.0  !  Cell  size 

0.05  !  Timestep  for  the  calculation 

1  !  (1  =  Cartesian,  2  =  Cylindrical,  3  =  Spherical) 

11  !  Logical  unit  number  of  printed  output  device 

50  !  Number  of  cells  in  the  computational  domain 

10  !  Number  of  cells  initialized  behind  the  shock 

201  !  Maximum  number  of  timesteps  of  length  DELTAT 

50  !  Frequency  of  intermediate  result  printouts 


Initialize  the  variables  in  Common  for  use  in  GASDYN  .  . 


GAMMAO  =1,4 
PREAMB  =1,0 
RHOAMB  =1.0 
RELAX  =0.0 


Gas  constant 

Ambient  (unshocked)  pressure  on  the  right 
Density  of  the  unshocked  fluid  on  the  right 
Relaxation  rate,  not  used  when  BC1,  BCN  =  2 


on  no  no  no 
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GAMMAM  =  GAMMAO  -  1.0 

The  Rankine-Hugoniot  conditions  are  set  for  boundaries  .  .  . 


CSAMB  =  SQRT  (GAMMAO* PREAMB /RHOAMB) 

VELAMB  =  -MACH*CSAMB 

VEL_IN  =  VELAMB* (GAMMAM  +  2 . 0/MACH**2) / (GAMMAO  +  1.0) 

RHO_IN  =  RHOAMB *VELAMB/VEL_IN 

PRE_IN  =  PREAMB  -  RHO_IN*VEL_IN**2  +  RHOAMB* VELAMB* *2 
VELAMB  =  VELAMB  +  VO 
VEL_IN  =  VEL_IN  +  VO 

ERGAMB  =  PREAMB/ (GAMMAO  -  1.0)  +  0 . 5*RHOAMB* VELAMB* *2 
ERG_IN  =  PRE_IN/ (GAMMAO  -  1.0)  +  0 . 5*RHO_IN*VEL_IN**2 

Define  the  cell  interface  locations  and  physical  variables  .  .  . 


NXP  =  NX  +  1 
Do  10  I  *  1,  NXP 

10  XINT(I)  =  FLOAT ( 1-1 ) *DELTAX 
Do  20  I  =  MX+1 ,  NX 
RHON(I)  =  RHOAMB 
RVXN(I)  =  RKOAMB  * VELAMB 
RVTN(I)  =0.0 
20  ERGN(I)  =  ERGAMB 

Do  30  I  =  1,  MX 

RHON(I)  =  RHO_IN 

RVXN(l)  =  RHO_IN*VEL_IN 

RVTN(I)  =0.0 
30  ERGN(I)  =  ERG_IN 

Begin  loop  over  timesteps  .  .  . 


BC1  =  4 
BCN  =  4 

Call  RESIDIFF  (  1.000  ) 

Call  MAKEGRID  (  XINT,  XINT,  1,  NXP,  ALPHA  ) 
Do  9999  ISTEP  =  1,  MAXSTP 
The  results  are  printed  when  required  .  .  . 


If  (  MOD ( ISTEP- 1 ,  IPRINT)  ,eq.  0)  Then 
JSTEP  =  ISTEP  -  1 

Write  (  LOUT,  1000  )  JSTEP,  NX,  DELTAT 
Do  40  I  =  1,  NX 

VNEW(I)  =  RVXN ( I ) /RHON ( I ) 

PNEW(I)  =  GAMMAM* (ERGN( I)  -  0 . 5*RVXN ( I ) *VNEW( I) ) 

40  TNEW(I)  =  PNEW(I) /RHON(I) 

Write  (  LOUT,  1002  ) 

Write  (  LOUT,  1001  )  <  I,  RHON(I),  TNEW(I),  PNEW(I), 
&  VNEW(I),  ERGN(I),  XINT(I),  I  =  1 ,  NX  ) 

Call  CONSERVE  (RHON,  1,  NX,  RHOSUM) 

Call  CONSERVE  (PNEW,  1,  NX,  PRESUM) 

Call  CONSERVE  (RVXN,  1,  NX,  RHVSUM) 

Call  CONSERVE  ( ERGN ,  1,  NX,  ERGSUM) 

PRESUM  =  PRESUM /GAMMAM 

Write  (  LOUT,  1003  )  RHOSUM,  PRESUM,  RHVSUM,  ERGSUM 
End  If 


nooo  oooooooooooon  n  no 
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The  FCT  integration  of  the  continuity  equations  is  performed 


Call  GASDYN  (  1,  NX,  BC1,  BCN,  DELTAT  ) 
TIME  =  TIME  +  DELTAT 

9999  Continue  i  End  of  the  loop  over  timesteps. 

Stop 

End 


Subroutine  GASDYN  (  Kl,  KN,  BC1,  BCN,  DT  ) 


This  routine  integrates  the  gasdynamic  equations  using  the  momentum 
component  RVRN  as  the  direction  of  integration  and  the  momentum  RVTN 
as  the  transverse  direction.  In  2D  models  the  two  directions  of 
integration  are  chosen  by  exchanging  RVRN  and  RVTN  in  Common. 


Kl 

KN 

BC1 

BCN 

DT 


Index  of  the  integration's  first  cell 
Index  of  the  integration's  last  cell 
Indicates  boundary  condition  on  integration  at  Kl 
Indicates  boundary  condition  on  integration  at  Kl 
Timestep  for  the  integrations  of  this  step 


& 

Sc 


Implicit 

NONE 

Integer 

NPT,  Kl,  KIP,  BC1,  BCN, 

K,  KN,  KNP, 

IT 

Parameter 

(  NPT  =  202 

) 

Logical 

PBC 

Real 

SBC1,  SRV1 

,  SBCN, 

SRVN,  VRHOl ,  VRHON 

Real 

VRVR1,  VRVRN,  VRVT1, 

VRVTN,  VERG1,  VERGN 

Real 

MPINT(NPT) , 

VEL (NPT) , 

UNIT(NPT) , 

ZERO (NPT) 

Real 

RHOO (NPT) , 

RVRO(NPT) , 

RVTO(NPT)  , 

ERGO (NPT) 

Real 

VINT (NPT) , 

PRE(NPT)  , 

MPVINT (NPT) 

Real 

DTSUB, 

DT, 

RELAX 

Data 

UNIT  /  NPT* 

1.0  /, 

ZERO  /  NPT* 

0.0  / 

Real 

RHO_IN, 

PRE_IN, 

VEL_IN, 

GAMMA0 

Real 

RHOAMB, 

PREAMB, 

VELAMB, 

GAMMAM 

Real 

RHON(NPT) , 

RVRN (NPT)  , 

RVTN (NPT) , 

ERGN(NPT) 

Common 

/  ARRAYS  / 

RHON,  RVRN 

,  RVTN, 

ERGN,  RE 

RHO_IN,  PRE_ 

IN,  VEL_IN, 

GAMMA0, 

RHOAMB,  PREAMB,  VELAMB,  GAMMAM 


Prepare  for  the  time  integration.  Index  K  is  either  I  or  J  depending 
on  the  definitions  of  RVRN  and  RVTN.  Copies  of  the  physical  variable 
are  needed  to  recover  values  for  the  whole  step  integration  .  .  . 


KNP  =  KN  +  1 
KIP  =  Kl  +  1 
PBC  =  .false. 

If  (  BCl.eq.3  -OR.  BCN.eq.3  )  PBC  =  .true. 
Do  50  K  -  Kl,  KN 

RHOO(K)  =  RHON(K) 

RVRO(K)  =  RVRN(K) 

RVTO(K)  =  RVTN(K) 


nnonooooooo  ooo  no 


50  ERGO (K)  =  ERGN(K) 
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Integrate  first  the  half  step  then  the  whole  step 


Do  500  IT  =  1,  2 

DTSUB  =  0 . 5*DT*FLOAT( IT) 

Do  100  K  a  Kl,  KN 

VEL(K)  =  RVRN(K) /RHON(K) 

100  PRE(K)  =  GAMMAM* (ERGN(K) 

&  -  0.5* (RVRN (K) **2  +  RVTN(K) **2) /RHON(K) ) 

Calculate  the  interface  velocities  and  pressures  as  weighted  values 
of  the  cell-centered  values  computed  just  above  .  .  . 


Do  200  K  =  Kl+1 ,  KN 

MPVINT(K)  =  1.0/ {  RHON(K)  +  RHON(K-l)  ) 

VINT(K)  =  (VEL(K) *RHON(K-l)  +  VEL'K-l) *RHON(K) ) *MPVINT(K) 
MPINT(K)  =  - (PRE(K) *RHON(K-l)  +  PRE(K-l) *RHON(K) ) *MPVINT(K) 
200  MPVINT(K)  =  -(  PRE(K) *VEL(K) *RHON(K-l) 

&  +  PRE(K-l) *VEL(K-1) *RHON(K)  )*MPVINT(K) 


The  unweighted  interface  averages  can  be  computed  as  follows  .  .  . 
VINT { K )  =  0.5* (VEL (K)  +VEL(K-1)) 

MPINT(K)  =  -0 . 5* (PRE (K)  +  PRE(K-l)) 

200  MPVINT(K)  =  MPINT(K) *VINT(K) 

Call  the  FCT  utility  routines  and  set  the  boundary  conditions.  Other 
boundary  conditions  could  be  added  for  inflow,  outflow,  etc  .  .  . 

BC1,  BCN  =1  =>  ideal  solid  wall  or  axis  boundary  condition 
BC1 ,  BCN  =  2  =>  an  extrapolative  outflow  boundary  condition 
BC1,  BCN  =3  =>  periodic  boundary  conditions  .  .  . 

BC1 ,  BCN  =4  =>  specified  boundary  values  (e.g.  shock  tube  problem) 


310 


320 


330 


& 


340 


Go  To  (  310, 
VINT(Kl) 
MPINT(Kl) 
MPVINT(Kl) 
Go  To  350 
VINT(Kl) 
MPINT(Kl) 
MPVINT(Kl) 
Go  To  350 
MPVINT(Kl) 
VINT(Kl) 
MPINT(Kl) 
MPVINT(Kl) 


320,  330,  340  ),  BC1 

=  0.0 

=  -  PRE (Kl ) 

=  0.0 

=  VEL (Kl) *(1.0  -  RELAX) 

=  -  PRE (Kl ) * ( 1 . 0  -  RELAX)  -  RELAX* PRE_IN 
=  MPINT(Kl) *VINT(K1) 

=  1.0/ (  RHON (Kl)  +  RHON(KN)  ) 

=  (VEL (Kl ) *RH0N (KN) +VEL (KN) *RHON (Kl ) )  *MPVINT(K1) 
=  - ( PRE (Kl ) *RHON (KN) +PRE (KN) *RHON (Kl ) ) *MPVINT (Kl ) 
=  - ( PRE (Kl) *VEL (Kl ) *RH0N(KN) 

+  PRE (KN) *VEL (KN) *RHON (Kl ) ) *MPVINT (Kl ) 


Go  To  350 

VINT(Kl)  =  VEL_IN 
MPINT(Kl)  =  -  PRE_IN 
MPVINT(Kl)  =  -  PRE_IN*VEL_IN 


350  Go  To  (  410,  420,  430,  440  ),  BCN 
410  VINT(KNP)  =0.0 

MPINT(KNP)  =  -  PRE (KN) 

MPVINT (KNP)  =0.0 
Go  To  450 

420  VINT(KNP)  =  VEL(KN)*(1.0  -  RELAX) 

MPINT(KNP)  =  -  PRE (KN) *(1.0  -  RELAX)  -  RELAX  *  PREAMB 


o  o 


MPVINT(KNP) 
Go  To  450 
430  VINT(KNP) 

MPINT(KNP) 
MPVINT(KNP) 
Go  To  450 
440  VINT (KNP) 

MPINT(KNP) 
MPVINT(KNP) 
450  Continue 


Appendix_C 

=  MPINT ( KNP ) * VINT ( KNP ) 

=  VINT(Kl) 

=  MPINT(Kl) 

=  MPVINT(Kl) 

=  VELAMB 

=  -  PREAMB 

=  -  PREAMB* VELAMB 


c  The  velocity  dependent  FCT  coefficients  are  set  and  the  boundary 
c  condition  calculations  are  completed.  Here  the  periodic  boundary 
c  conditions  require  no  action  as  (S)lope  and  (V)alue  boundary  value 
specifiers  are  ignored  in  LCPFCT  when  PBC  =  .true. 


Call  VELOCITY  (  VINT,  Kl,  KNP,  DTSUB  ) 


510 


520 


540 


Go  To  (  510,  520,  550,  540  ),  BC1 
Call  ZEROFLUX  (  Kl  ) 

SBC1  =1.0 
SRV1  =  -1.0 
VRHOl  =0.0 
VRVR1  =0.0 
VRVT1  =0.0 
VERG1  =0.0 
Go  To  550 

Call  ZERODIFF  (  Kl  ) 

SBC1  =  1.0  -  RELAX 
SRV1  =  1.0  -  RELAX 
VRHOl  =  RELAX*RHO_IN 
VRVR1  =0.0 
VRVT1  =0.0 

VERG1  =  RELAX*PRE_IN/ GAMMAM 

Go  To  550 

SBC1  =0.0 

SRV1  =0.0 

VRHOl  =  RHO_IN 

VRVR1  =  RHO_IN*VEL_IN 

VRVT1  =0.0 

VERG1  =  PRE_IN / GAMMAM  +  0 . 5*RHO_IN*VEL_IN**2 


550  Go  To  (  610,  620,  650,  640  ),  BCN 
610  Call  ZEROFLUX  (  KNP  > 

SBCN  =1.0 
SRVN  =  -1.0 
VRHON  =0.0 
VRVRN  =0.0 
VRVTN  =0.0 
VERGN  =0.0 
Go  To  650 

620  Call  ZERODIFF  {  KNP  ) 

SBCN  =  1.0  -  RELAX 
SRVN  =  1.0  -  RELAX 
VRHON  =  RELAX*RHOAMB 
VRVRN  =0.0 
VRVTN  =0.0 

VERGN  =  RELAX* PREAMB/GAMMAM 
Go  To  650 
SBCN  =0.0 


640 


o  o 
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SRVN  =  0.0 
VRHON  =  RHOAMB 
VRVRN  =  RHOAMB *VE LAMB 
VRVTN  =0.0 

VERGN  =  PREAMB/GAMMAM  +  0 . 5*RHOAMB*VELAMB**2 
650  Continue 

Integrate  the  continuity  equations  using  LCPFCT  .  .  . 


Call  LCPFCT  (  RHOO,  RHON,  K1,KN,  SBCl.VRHOl,  SBCN, VRHON,  PBC  ) 

Call  SOURCES (  K1,KN,  DTSUB,  5,  UNIT,  MPINT, 

Sc  MPINT  (Kl),  MPINT(KNP)  ) 

Call  LCPFCT  (  RVRO,  RVRN,  Kl, KN,  SRV1,VRVR1,  SRVN, VRVRN,  PBC  ) 

Call  LCPFCT  (  RVTO,  RVTN,  K1,KN,  SBCl.VRVTl,  SBCN, VRVTN,  PBC  ) 

Call  SOURCES (  Kl , KN,  DTSUB,  4,  UNIT,  MPVINT, 

Sc  MPVINT  (Kl),  MPVINT  (KNP)  ) 

Call  LCPFCT  (  ERGO,  ERGN,  Kl , KN,  SBCl, VERG1,  SBCN, VERGN,  PBC  ) 

500  Continue  !  End  of  half step-wholestep  loop. 

Return 

End 
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LCPFCT  Test  #  2  -  Progressing  Shock;  Step  =  0  NX  =  50  DT  =  0.050 


I 

Density 

Temperature 

Pressure 

Velocity 

Energy 

Interfaces 

1 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

0 . OOOOE+OO 

2 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

1. OOOOE+OO 

3 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

2. OOOOE+OO 

4 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

3. OOOOE+OO 

5 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

4. OOOOE+OO 

6 

5 . 0000E+00 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

5. OOOOE+OO 

7 

5 . OOOOE+OO 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

6. OOOOE+OO 

8 

5 . OOOOE+OO 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

7. OOOOE+OO 

9 

5. OOOOE+OO 

5 . 8000E+00 

2.9000E+01 

1 . 8168E+00 

8 . 0752E+01 

8. OOOOE+OO 

10 

5. OOOOE+OO 

5 . 8000E+00 

2 . 9000E+01 

1 . 8168E+00 

8 . 0752E+01 

9. OOOOE+OO 

11 

1. 0000E+00 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

1. OOOOE+Ol 

12 

1. 0000E+00 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 1000E+01 

13 

1. 0000E+00 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 2000E+01 

14 

1. 0000E+00 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 3000E+01 

15 

1, 0000E+00 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 4000E+01 

16 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 5000E+01 

17 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 6000E+01 

18 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

1 . 7000E+01 

19 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 8000E+01 

20 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

1 . 9000E+01 

21 

1. OOOOE+OO 

1.  OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

2. OOOOE+Ol 

22 

1. OOOOE+OO 

1.  OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

2 . 1000E+01 

23 

1. OOOOE+OO 

1.  OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

2.2000E+01 

24 

1. OOOOE+OO 

1.  OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6 . 7518E+00 

2 . 3000E+01 

25 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

2 . 4000E+01 

26 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6 . 7518E+00 

2 . 5000E+01 

27 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6 . 7518E+00 

2 . 6000E+01 

28 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6 . 7518E+00 

2.7000E+01 

29 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

2 . 8000E+01 

30 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

2 . 9000E+01 

31 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

3. OOOOE+Ol 

32 

1. OOOOE+OO 

1.  OOOOE+OO 

1. OOOOE+OO 

-2  -9161E+00 

6.7518E+00 

3 . 1000E+01 

33 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6.7518E+00 

3.2000E+01 

34 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

3 . 3000E+01 

35 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

3 .4000E+01 

36 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

3 . 5000E+01 

37 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

3 . 6000E+01 

38 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

3 . 7000E+01 

39 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

3 . 8000E+01 

40 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

3 . 9000E+01 

41 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4. OOOOE+Ol 

42 

1. OOOOE+OO 

1  .OOOOE+OO 

1. OOOOE+OO 

-2.9161E+00 

6 . 7518E+00 

4 . 1000E+01 

43 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4.2000E+01 

44 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4 . 3000E+01 

45 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4 . 4000E+01 

46 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

4 . 5000E+01 

47 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

4 . 6000E+01 

48 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4.7000E+01 

49 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6 . 7518E+00 

4 . 8000E+01 

50 

1. OOOOE+OO 

1. OOOOE+OO 

1. OOOOE+OO 

-2 . 9161E+00 

6.7518E+00 

4 . 9000E+01 

Conservation  Suras 

9 . OOOOE+Ol  8 . 2500E+02  -2.5804E+01  1.0776E+03 
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LCPFCT  Test  #  2  -  Progres 


I 

Density 

Temperature 

1 

4 . 9983E+00 

5.7992E+00 

2 

4 . 9983E+00 

5.7992E+00 

3 

4 . 9980E+00 

5 . 7991E+00 

4 

4 . 9974E+00 

5.7988E+00 

5 

4 . 9969E+00 

5 . 7986E+00 

6 

4 . 9962E+00 

5.7983E+00 

7 

4 . 9958E+00 

5 . 7980E+00 

8 

4 -9953E+00 

5.7979E+00 

9 

4 . 9949E+00 

5.7977E+00 

10 

4 . 9946E+00 

5.7973E+00 

11 

4 . 9941E+00 

5.7973E+00 

12 

4 . 9937E+00 

5.7972E+00 

13 

4 . 9936E+00 

5.7969E+00 

14 

4 . 9933E+00 

5.7967E+00 

15 

4.9929E+00 

5.7969E+00 

16 

4 . 9929E+00 

5.7967E+00 

17 

4 . 9929E+00 

5.7966E+00 

18 

4 . 9929E+00 

5.7966E+00 

19 

4 . 9929E+00 

5.7966E+00 

20 

4.9931E+00 

5.7968E+00 

21 

4 . 9932E+00 

5 . 7969E+00 

22 

4 . 9932E+00 

5.7976E+00 

23 

4 . 9937E+00 

5.7983E+00 

24 

4 . 9938E+00 

5.7989E+00 

25 

4 . 9946E+00 

5 . 7994E+00 

26 

4 . 9946E+00 

5.8013E+00 

27 

4 . 9946E+00 

5 . 8018E+00 

28 

4 . 9948E+00 

5 . 8020E+00 

29 

4 .9954E+00 

5 . 8049E+00 

30 

4.9954E+00 

5 . 8072E+00 

31 

4 . 9954E+00 

5 . 8074E+00 

32 

4 . 9948E+00 

5 . 8091E+00 

33 

3 . 1692E+00 

5 . 6326E+00 

34 

9 . 9995E-01 

9.9907E-01 

35 

9 . 9981E-01 

9 . 9897E-01 

36 

9 . 9981E-01 

9.9950E-01 

37 

9.9993E-01 

1 . 0001E+00 

38 

1. OOOOE+OO 

1. OOOOE+OO 

39 

1. 0000E+00 

1. OOOOE+OO 

40 

1. OOOOE+OO 

1. OOOOE+OO 

41 

1. 0000E+00 

1. OOOOE+OO 

42 

1. 0000E+00 

1. OOOOE+OO 

43 

1. OOOOE+OO 

1. OOOOE+OO 

44 

1. OOOOE+OO 

1. OOOOE+OO 

45 

1. OOOOE+OO 

1. OOOOE+OO 

46 

1. OOOOE+OO 

1. OOOOE+OO 

47 

1. OOOOE+OO 

1.  OOOOE+OO 

48 

1. OOOOE+OO 

1. OOOOE+OO 

49 

1.  OOOOE+OO 

1. OOOOE+OO 

50 

1. OOOOE+OO 

1. OOOOE+OO 

Conservation  Sums 
1 . 8000E+02 


ing  Shock: 

Step  =  150 

Pressure 

Velocity 

2 . 8986E+01 

1 . 8177E+00 

2 . 8986E+01 

1 . 8177E+00 

2 . 8984E+01 

1 . 8179E+00 

2 . 8979E+01 

1 . 8183E+00 

2 . 8975E+01 

1 . 8186E+00 

2 . 897  0E+01 

1 . 8189E+00 

2 . 8966E+01 

1 . 8191E+00 

2 . 8962E+01 

1 . 8194E+00 

2 . 8958E+01 

1 . 8197E+00 

2 . 8955E+01 

1 . 8199E+00 

2 . 8952E+01 

1 . 8201E+00 

2 . 8950E+01 

1 . 8203E+00 

2 . 8947E+01 

1 . 8205E+00 

2 . 8945E+01 

1 . 8206E+00 

2 . 8944E+01 

1 . 8208E+00 

2 . 8942E+01 

1 . 8208E+00 

2 . 8942E+01 

1 . 8209E+00 

2 . 8942E+01 

1 . 8209E+00 

2 . 8942E+01 

1 . 8208E+00 

2 . 8944E+01 

1 . 8208E+00 

2 . 8945E+01 

1 . 8206E+00 

2 . 8949E+01 

1 . 8203E+00 

2 . 8955E+01 

1 . 8201E+00 

2 . 8958E+01 

1 . 8196E+00 

2 . 8966E+01 

1.8191E+00 

2 . 8975E+01 

1 . 8186E+00 

2.8977E+01 

1 . 8186E+00 

2.8980E+01 

1.8178E+00 

2.8998E+01 

1 . 8173E+00 

2 . 9009E+01 

1 . 8172E+00 

2 . 9010E+01 

1.8171E+00 

2 . 9015E+01 

1 . 8159E+00 

1.7851E+01 

9.4539E-01 

9 . 9902E-01 

-2 . 9166E+00 

9 .9878E-01 

-2 . 9170E+00 

9.9931E-01 

-2 . 9166E+00 

1. OOOOE+OO 

-2 . 9162E+00 

1. OOOOE+OO 

-2 . 9160E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

1. OOOOE+OO 

-2 . 9161E+00 

2 . 4044E+03 

2.4420E+02 

NX  =  50  DT  =  0.050 

Energy  Interfaces 

8 . 0724E+01  0 . 0000E+00 

8 . 0723E+01  1 . 0000E+00 

8 . 0719E+01  2 . 0000E+0Q 

8 . 0708E+01  3 . 0000E+00 

8 . 0701E+01  4 . 0000E+00 

8 . 0689E+01  5 . 0Q00E+00 

8.0680E+01  6 . 0000E+00 

8.0674E+01  7 . OOOOE+OO 

8 . 0666E+01  8. OOOOE+OO 

8.0659E+01  9. 0000E+00 

8 . 0653E+01  1 . 0000E+01 

8 . 0648E+01  1 . 1000E+01 

8 . 0643E+01  1 . 2000E+01 

8 . 0638E+01  1 . 3000E+01 

8 . 0636E+01  1 . 4000E+01 

8 . 0632E+01  1 . 5000E+01 

8 . 0632E+01  1 . 6000E+01 

8 . 0632E+01  1 -7000E+01 

8 . 0632E+01  1 . 8000E+01 

8 . 0637E+01  1.9000E+01 

8 . 0638E+01  2 . 0000E+01 

8.0645E+01  2 . 1000E+01 

8.0659E+01  2.2000E+01 

8 . 0663E+01  2 . 3000E+01 

8 . 0678E+01  2 . 4000E+01 

8.0697E+01  2 . 5000E+01 

8 . 0703E+01  2 . 6000E+01 

8 . 0702E+01  2.7000E+01 

8 . 0744E+01  2 . 8000E+01 

8 . 0771E+01  2 . 9000E+01 

8.0773E+01  3 . 0000E+01 

8 . 0773E+01  3 . 1000E+01 

4 . 6043E+01  3 . 2000E+01 

6.7506E+00  3 . 3000E+01 

6.7506E+00  3 . 4000E+01 

6.7507E+00  3 . 5000E+01 

6 . 7518E+00  3 . 6000E+01 

6 . 7518E+00  3 . 7000E+01 

6.7518E+00  3 . 8000E+01 

6 . 7518E+00  3 . 9000E+01 

6 . 7518E+00  4 . 0000E+01 

6.7518E+00  4 . 1000E+01 

6 . 7518E+00  4 . 2000E+01 

6.7518E+00  4 . 3000E+01 

6.7518E+00  4 . 4000E+01 

6 . 7518E+00  4 . 5000E+01 

€ . 7518E+00  4 . 6000E+01 

6 . 7518E+00  4.7000E+01 

6 . 7518E+00  4 . 8000E+01 

6 . 7518E+00  4 . 9000E+01 


2.7426E+03 
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LCPFCT  Test  #  2  -  Progressing  Shock: 


Step  =  200  NX  =  50 


Density  Temperature  Pressure 


Velocity 


Energy 


1  4 . 9968E+00 

2  4 . 9967E+00 

3  4 . 9966E+00 

4  4 . 9959E+00 

5  4 . 9956E+00 

6  4 . 9951E+00 

7  4 . 9948E+00 

8  4 . 9942E+00 

9  4 . 9939E+00 

10  4 . 9937E+00 

11  4 . 9932E+00 

12  4 . 9931E+00 

13  4 . 9930E+00 

14  4 . 9929E+00 

15  4.9929E+0 0 

16  4.9930E+00 

17  4.9930E+00 

18  4 . 9932E+00 

19  4.9936E+00 

20  4 . 9940E+00 

21  4 . 9947E+00 

22  4 . 9955E+00 

23  4 . 9963E+00 

24  4 . 9971E+00 

25  4 . 9981E+00 

26  4 . 9981E+00 

27  4 . 9988E+00 

28  4 . 9996E+00 

29  4 . 9997E+00 

30  4 . 9996E+00 

31  4 . 9996E+00 

32  4 . 9996E+00 

33  4 . 9990E+00 

34  4 . 9987E+00 

35  4 . 9980E+00 

36  4 . 9979E+00 

37  4.9977E+00 

38  4 . 9977E+00 

39  4 . 9942E+00 

40  4 . 9107E+00 

41  1.2490E+00 

42  9 . 9955E-01 

43  9 . 9955E-01 

44  9.9971E-01 

45  1 . 0000E+00 

46  1 . 0000E+00 

47  1.0000E+00 

48  1 . OOOOE+OO 

49  1. 0000E+00 

50  1. 0000E+00 


5.7985E+00 
5.7985E+00 
5 . 7985E+00 
5 . 7981E+00 
5.7980E+00 
5 . 7977E+00 
5.7976E+00 
5.7974E+00 
5.7972E+00 
5.7970E+00 
5.7970E+00 
5.7968E+00 
5.7967E+00 
5.7967E+00 
5 . 7967E+00 
5.7967E+00 
5.7968E+00 
5.7969E+00 
5.7969E+00 
5.7973E+00 
5.7974E+00 
5.7980E+00 
5.7981E+00 
5.7987E+00 
5.7990E+00 
5 . 7996E+00 
5 . 8005E+00 
5 . 8007E+00 
5.8020E+00 
5 . 8025E+00 
5 • 8039E+00 
5 . 8C50E+00 
5 . 8061E+00 
5 . 8069E+00 
5 . 8080E+00 
5 . 8084E+00 
5 . 8088E+00 
5 . 8083E+00 
5 . 8118E+00 
5 . 8264E+00 
2 . 4009E+00 
9 . 9660E-01 
9 -9832E-01 
9 . 9942E-01 
1 . 0001E+00 
1. OOOOE+OO 
1. 0000E+00 
1. 0000E+00 
1. 0000E+00 
1. OOOOE+OO 


2 . 8974E+01 
2 . 8973E+01 
2 . 8973E+01 
2 . 8967E+01 
2 . 8964E+01 
2 . 8960E+01 
2 . 8958E+01 
2 . 8953E+01 
2 . 8951E+01 
2 . 8948E+01 
2 . 8946E+01 
2 . 8944E+01 
2 . 8943E+01 
2 . 8943E+01 
2 . 8943E+01 
2 . 8943E+01 
2 . 8943E+01 
2 . 8945E+01 
2 . 8947E+01 
2 . 8952E+01 
2 . 8957E+01 
2 . 8964E+01 
2 . 8969E+01 
2 . 8977E+01 
2.8984E+01 
2.8987E+01 
2 . 8995E+01 
2 . 9002E+01 
2.9008E+01 
2 . 9010E+01 
2.9017E+01 
2.9022E+01 
2.9025E+01 
2 . 9027E+01 
2 . 9028E+01 
2.9030E+01 
2 . 9030E+01 
2.9028E+01 
2 . 9025E+01 
2 . 8612E+01 
2 . 9988E+00 
9 . 9616E-01 
9 . 9788E-01 
9 . 9912E-01 
1 . 0001E+00 
1. OOOOE+OO 
1. OOOOE+OO 
1. OOOOE+OO 
1. OOOOE+OO 
1. OOOOE+OO 


1 . 8186E+00 
1 . 8186E+00 
1 . 8187E+00 
1 . 8191E+00 
1 . 8193E+00 
1 . 8196E+00 
1 . 8198E+00 
1 . 8200E+00 
1 . 8202E+00 
1 . 8204E+00 
1 . 8206E+00 
1 . 8207E+00 
1 . 8208E+00 
1 . 8208E+00 
1 . 8208E+00 
1 . 8208E+00 
1 . 8208E+00 
1 . 8207E+00 
1 . 8204E+00 
1 . 8201E+00 
1 . 8198E+00 
1 . 8194E+00 
1 . 8188E+00 
1 . 8185E+00 
1 . 8181E+00 
1 . 8175E+00 
1 . 8171E+00 
1 . 8168E+00 
1.8163E+00 
1 . 8158E+00 
1 . 8156E+00 
1 . 8152E+00 
1 . 8153E+00 
1 . 8148E+00 
1 . 8147E+00 
1 . 8147E+00 
1 . 8148E+00 
1 . 8153E+00 
1.7854E+00 
1 . 8047E+00 
-2 . 0546E+00 
-2 . 9194E+00 
-2 . 9179E+00 
-2 . 9168E+00 
-2.9160E+00 
-2 . 9161E+00 
-2 . 9161E+00 
-2 . 9161E+00 
-2 . 9161E+00 
-2 . 9161E+00 


8 . 0698E+01 
8 . 0696E+01 
8 . 0696E+01 
8 . 0683E+01 
8 . 0678E+01 
8 . 0669E+01 
8 . 0665E+01 
8 . 0655E+01 
8 . 0650E+01 
8 . 0645E+01 
8 . 0640E+01 
8 . 0636E+01 
8 . 0634E+01 
8 . 0634E+01 
8 . 0634E+01 
8 . 0634E+01 
8 . 0634E+01 
8 . 0638E+01 
8 . 0642E+01 
8 . 0652E+01 
8 . 0662E+01 
8 . 0677E+01 
8 . 0686E+01 
8 . 0704E+01 
8 . 0720E+01 
8 . 0723E+01 
8 . 07  41E+01 
8 . 0755E+01 
8 . 0768E+01 
8 . 07  67E+01 
8 . 0784E+01 
8 . 0793E+01 
8 . 0798E+01 
8 . 0800E+01 
8 . 0800E+01 
8 . 0804E+01 
8 . 0805E+01 
8 . 0805E+01 
8 . 0522E+01 
7 . 9527E+01 
1 . 0133E+01 
6.7498E+00 
6 . 7498E+00 
6.7505E+00 
6 . 7518E+00 
6.7518E+00 
6 -7518E+00 
6 . 7518E+00 
6.7518E+00 
6.7518E+00 


Conservation  Sums 
2 . 1000E+02 


2 . 9269E+03  3.3419E+02  3.2976E+03 


DT  =  0.050 

Interfaces 

0. OOOOE+OO 
1. OOOOE+OO 
2. OOOOE+OO 
3 .OOOOE+OO 
4. OOOOE+OO 
5. OOOOE+OO 
6. OOOOE+OO 
7. OOOOE+OO 
8. OOOOE+OO 
9 .OOOOE+OO 
1 . OOOOE+Ol 
1 . 1000E+01 
1 . 2000E+01 
1 . 3000E+01 
1 . 4000E+01 
1 . 5000E+01 
1 . 6000E+01 
1 . 7000E+01 
1 . 8000E+01 
1 . 9000E+01 
2. 0000E+01 
2 . 1000E+01 
2 . 2000E+01 
2 . 3000E+01 
2 . 4000E+01 
2 . 5000E+01 
2 . 6000E+01 
2.7000E+01 
2.8000E+01 
2 . 9000E+01 
3 .OOOOE+Ol 
3 . 1000E+01 
3 . 2000E+01 
3 . 3000E+01 
3 . 4000E+01 
3 . 5000E+01 
3 . 6000E+01 
3 . 7000E+01 
3 . 8000E+01 
3 . 9000E+01 
4. OOOOE+Ol 
4 . lOOOE+Ol 
4 . 2000E+01 
4 . 3000E+01 
4 . 4000E+01 
4 . 5000E+01 
4 . 6000E+01 
4.7000E+01 
4 . 8000E+01 
4 . 9000E+01 
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Program  DIAPHRAGM 


C - 

c 

c  ID  BURSTING  DIAPHRAGM  PROBLEM  -  LCPFCT  Test  #  3  August  1992 

c 

c  This  program  runs  a  very  simple  ID  bursting  diaphragm  test  problem 
c  using  LCPFCT  and  its  utility  routines.  The  fluid  is  ideal  and 
c  inviscid  with  constant  GAMMA  =  1.667.  The  end  walls  are  reflecting 
c  so  the  fluid  should  be  totally  contained  in  the  domain, 
c 

c - 


Implicit  NONE 


Integer 

Parameter 

NPT,  ALPHA, 
(  NPT  =  202 

BC1 ,  BCN, 

) 

MAXSTP, 

IPRINT 

Integer 

NX,  NXP, 

MX,  ISTEP, 

JSTEP,  I, 

LOUT 

Real 

TIME, 

DELTAX, 

DELTAT, 

DX_ JIGGLE 

REAL 

XGRID(NPT)  , 

XNEXT(NPT)  , 

DXOFF, 

DX_OSC 

Real 

RHOSUM, 

RHVSUM, 

PRESUM, 

ERGSUM 

Real 

VNEW (NPT) , 

PNEW (NPT)  , 

TNEW(NPT) 

Real 

VELX, 

VXPAND, 

SCALEG 

Real 

ERG_IN, 

ERGAMB, 

RELAX 

Real 

RH0_IN, 

PRE_IN, 

VEL_IN, 

GAMMA0 

Real 

RHOAMB, 

PREAMB, 

VELAMB, 

GAMMAM 

Real 

RHON(NPT), 

RVXN(NPT) , 

RVTN(NPT) , 

ERGN(NPT) 

Common 

/  ARRAYS  / 

RHON,  RVXN 

RH0_IN,  PRE_ 

,  RVTN, 

IN,  VEL_IN, 

ERGN,  RELAX 

GAMMA0, 

&  RHOAMB,  PREAMB,  VELAMB,  GAMMAM 

1000  Format  (  '1',  /,  '  LCPFCT  Test  #  3  -  Bursting  Diaphragm:', 

&  '  Step  =',  14,  '  NX  =  ',  13,  '  DT  =  ',  F6.3,  /  ) 

1001  Format  (  2X,  13,  6F12.5  ) 

1002  Format  (  '  I  Density  Temperature  Pressure  ' , 

&  '  Velocity  Energy  Interfaces',  /  ) 

1003  Format  {  '0  Conservation  Sums  ',  /,  5X,  F12.5,  12X,  3F12.5,  /  ) 


c  The  Bursting  Diaphragm  run  control  parameters  are  specified  here, 
c  (change  for  other  cases)  .  .  . 

c - 

DELTAX  =1.0  !  Cell  size 

DELTAT  =  0.05  !  Timestep  for  the  calculation 

ALPHA  =  1  !  (1  =  Cartesian,  2  =  Cylindrical,  3  =  Spherical) 

LOUT  =  11  !  Logical  unit  number  of  printed  output  device 

NX  =  100  1  Number  of  cells  in  the  computational  domain 

MX  =  60  !  Number  of  cells  initialized  behind  the  shock 

MAXSTP  =  1601  !  Maximum  number  of  timesteps  of  length  DELTAT 
IPRINT  =  50  !  Frequency  of  intermediate  result  printouts 


c 

C 


Initialize  the  variables  in  Common  for  use  in  GASDYN  .  .  . 


RHO_IN 

SS 

1.0 

PRE_IN 

= 

10.0 

VEL_IN 

s 

0.0 

VXPAND 

= 

3.1 

DX_OSC 

s 

0.125 

!  Initial  mass  density  behind  the  diaphragm 
!  Initial  (higher)  pressure  behind  the  diaphragm 
!  Initial  velocity 

!  Characteristic  system  expansion  velocity 
!  Amplitude  of  the  grid  jiggling  after  step  200 


0 


nooonnnno  oo  oo 


GAMMAO 

preamb 

RHOAMB 

VELAMB 

RELAX 

GAMMAM 

ERGAMB 

ERG_IN 
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1.66667  !  Gas  constant 

1.0  !  Ambient  (unshocked)  pressure  on  the  right 

1.0  !  Density  of  the  unshocked  fluid  on  the  right 

0.0  i  Initial  velocity 

0.002  1  Relaxation  rate,  used  when  BC1,  BCN  =  2 

GAMMAO  -  1.0 

PREAMB/ (GAMMAO  -  1.0)  +  0 . 5*RHOAMB*VELAMB**2 
PRE_IN/ (GAMMAO  -  1.0)  +  0 . 5*RHO_IN*VEL_IN**2 


Set  up  the  fluid  variables  with  the  diaphragm  at  interface  MX+1  . 


Do  10  I  =  MX+1,  NX 
RHON(I)  =  RHOAMB 

RVXN(I)  =  RHOAMB  * VELAMB 

RVTN(I)  =  0.0 

10  ERGN(I)  =  ERGAMB 

Do  20  I  =  1,  MX 

RHON(I)  =  RHO_IN 

RVXN(I)  =  RHO_IN*VEL_IN 

RVTN(I)  =  0.0 

20  ERGN(I)  =  ERG_IN 

Begin  loop  over  timesteps  .  .  . 


BC1  =  1 
BCN  =  1 

Call  RESTDIFF  (  0.998  ) 

TIME  =0.0 

Do  9999  ISTEP  =  1,  MAXSTP 

Define  the  cell  interface  locations  and  physica.  variables.  The  grid 
is  expanded  at  the  rate  VELX  at  I  =  NXP  after  step  201  (as  the  shock 
approaches  the  boundary)  by  making  XNEXT  at  the  end  of  the  timestep 
proportionately  larger  than  XGRID  at  the  beginning  of  the  step.  The 
system  length  is  then  renormalized  to  its  original  size,  capturing 
the  similarity  solution  by  equating  the  grid  expansion  to  the  shock 
velocity.  A  small  jiggle  is  added  to  this  systematic  expansion  to 
show  the  added  flexibility  of  the  continuity  solver. 


NXP  =  NX  +  1 

If  (  ISTEP  .gt.  200  )  Then 
VELX  =  VXPAND 
DXOFF  =  DX_OSC 

If  (  MOD (ISTEP, 2)  .eq.  0  )  DXOFF  =  -  DX_OSC 
Else 

VELX  =0,0 
DXOFF  =0.0 
End  If 

Do  30  I  =  1,  NXP 

XGRID ( I )  =  FLOAT ( I -MX- 1 ) *DELTAX 

30  XNEXT(I)  =  XGRID ( I ) 

SCALEG  =  ( VELX * DELTAT  +  XGRID ( NXP )) /XGRID (NXP) 
Do  40  I  =  3,  NX-2 

XNEXT(I)  =  ( XNEXT ( I )  +  DXOFF) * SCALEG 
40  XGRID ( I )  =  XGRID (I)  -  DXOFF 

Call  MAKEGRID  (  XGRID,  XNEXT,  1,  NXP,  ALPHA  ) 


on  on 
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The  results  are  printed  when  required  .  .  . 


If  (  MOD ( ISTEP- 1 ,  IPRINT)  .eq.  0)  Then 
JSTEP  =  ISTEP  -  1 
IPRINT  =  2* (ISTEP  -  1) 

If  (  ISTEP  .It.  200  )  IPRINT  =  50 
Write  (  LOUT,  1000  )  JSTEP,  NX,  DELTAT 
Do  50  I  =  1,  NX 

VNEW(I)  =  RVXN(I) /RHON(I) 

PNEW(I)  =  GAMMAM* ( ERGN ( I )  -  0 . 5*RVXN ( I ) *VNEW( I) ) 

50  TNEW(I)  =  PNEW(I) /RHON(I) 

Write  (  LOUT,  1002  ) 

Write  (  LOUT,  1001  )  (  I,  RHON(I),  TNEW(I) ,  PNEW(I), 
&  VNEW(I),  ERGN ( I ) ,  XGRID(I),  I  =  1,  NX  ) 

Call  CONSERVE  (RHON,  1,  NX,  RHOSUM) 

Call  CONSERVE  (PNEW,  1,  NX,  PRESUM) 

Call  CONSERVE  (RVXN,  1,  NX,  RHVSUM) 

Call  CONSERVE  (ERGN,  1,  NX,  ERGSUM) 

Write  (  LOUT,  1003  )  RHOSUM,  PRESUM,  RHVSUM,  ERGSUM 
End  If 


The  FCT  integration  of  the  continuity  equations  is  performed  .  .  . 


Call  GASDYN  (  1,  NX,  BC1,  BCN,  DELTAT  ) 
TIME  *  TIME  +  DELTAT 

9999  Continue  !  End  of  the  loop  over  timesteps. 

Stop 

End 
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LCPFCT  Test  # 

3  -  Bursting 

Diaphragm: 

Step  =  0 

NX  =100 

I 

Density 

Temperature 

Pressure 

Velocity 

Energy 

1 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

2 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

3 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

4 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

5 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

6 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

7 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

8 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

9 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

10 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

11 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

12 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

13 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

14 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

15 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

16 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

17 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

18 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

19 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

20 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

21 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

22 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

23 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

24 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

25 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

26 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

27 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

28 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

29 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

30 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

31 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

32 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

33 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

34 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

35 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

36 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

37 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

38 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

39 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

40 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

41 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

42 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

43 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

44 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

45 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

46 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

47 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

48 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

49 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

50 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

51 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

52 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

53 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

54 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

55 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

DT  =  0.050 

Interfaces 

-60.00000 
-59.00000 
-58.00000 
-57 . 00000 
-56.00000 
-55.00000 
-54.00000 
-53.00000 
-52.00000 
-51.00000 
-50.00000 
-49.00000 
-48.00000 
-47.00000 
-46.00000 
-45.00000 
-44.00000 
-43.00000 
-42.00000 
-41.00000 
-40.00000 
-39.00000 
-38.00000 
-37.00000 
-36.00000 
-35.00000 
-34.00000 
-33.00000 
-32.00000 
-31.00000 
-30.00000 
-29.00000 
-28.00000 
-27.00000 
-26.00000 
-25.00000 
-24.00000 
-23.00000 
-22.00000 
-21.00000 
-20.00000 
-19.00000 
-18.00000 
-17.00000 
-16.00000 
-15.00000 
-14.00000 
-13.00000 
-12.00000 
-11.00000 
-10.00000 
-9.00000 
-8.00000 
-7.00000 
-6.00000 
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56 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-5.00000 

57 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-4.00000 

58 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-3.00000 

59 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-2.00000 

60 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-1.00000 

61 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

0.00000 

62 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

1.00000 

63 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

2.00000 

64 

1.00000 

1.30000 

1.00000 

0.00000 

1.49999 

3.00000 

65 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

4.00000 

66 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

5.00000 

67 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

6.00000 

68 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

7.00000 

69 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

8.00000 

70 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

9.00000 

71 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

10.00000 

72 

1.00000 

1.00000 

1.00300 

0.00000 

1.49999 

11.00000 

73 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

12.00000 

74 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

13.00000 

75 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

14.00000 

76 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

15.00000 

77 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

16.00000 

78 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

17.00000 

79 

1.00000 

1.00000 

1,00000 

0.00000 

1.49999 

18.00000 

80 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

19.00000 

81 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

20.00000 

82 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

21.00000 

83 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

22.00000 

84 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

23.00000 

85 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

24.00000 

86 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

25.00000 

87 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

26.00000 

88 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

27.00000 

89 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

28.00000 

90 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

29.00000 

91 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

30.00000 

92 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

31.00000 

93 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

32.00000 

94 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

33.00000 

95 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

34.00000 

96 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

35.00000 

97 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

36.00000 

98 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

37.00000 

99 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

38.00000 

100 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

39.00000 

Conservation  Sums 
100.00000 


640.00000 


0.00000  959.99609 
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LCPFCT  Test  # 

3  -  Bursting 

Diaphragm: 

Step  =  100 

NX  =100 

DT  =  0.050 

I 

Density 

Temperature 

Pressure 

Velocity 

Energy 

Interfaces 

1 

1.00000 

10.00000 

10 . 00000 

0.00000 

14.99993 

-60.00000 

2 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-59.00000 

3 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-58 . 00000 

4 

1.00000 

10.00000 

10.00000 

0.00000 

14 . 99993 

-57 . 00000 

5 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-56.00000 

6 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-55.00000 

7 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-54.000^0 

8 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-53.00000 

9 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-52.00000 

10 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-51.00000 

11 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-50.00000 

12 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-49.00000 

13 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-48.00000 

14 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-47.00000 

15 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-46.00000 

16 

1.00000 

10.00000 

10.00000 

o.ooono 

14.99993 

-45.00000 

17 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-44.00000 

18 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-43.00000 

19 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-42.00000 

20 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-41.00000 

21 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-40.00000 

22 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-39.00000 

23 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-38.00000 

24 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-37.00000 

25 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-36.00000 

26 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-35.00000 

27 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-34.00000 

28 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-33.00000 

29 

1.00000 

9.99999 

9.99998 

0.00000 

14.99990 

-32.00000 

30 

1.00000 

9.99999 

9.99999 

0.00001 

14.99991 

-31.00000 

31 

0.99999 

9.99994 

9.99987 

0.00001 

14.99972 

-30.00000 

32 

0.99998 

9.99989 

9.99973 

0.00007 

14.99952 

-29.00000 

33 

0.99997 

9.99983 

9.99958 

0.00025 

14.99929 

-28.00000 

34 

0.99980 

9.99869 

9.99673 

0.00023 

14.99501 

-27.00000 

35 

0.99982 

9.99882 

9.99706 

0.00228 

14.99552 

-25.00000 

36 

0.99848 

9.98987 

9.97468 

0.00208 

14.96196 

-25.00000 

37 

0.99862 

9.99070 

9.97689 

0.01654 

14.96540 

-24.00000 

38 

0.98965 

9.93141 

9.82857 

0.01511 

14.74290 

-23,00000 

39 

0.98994 

9.93077 

9.83089 

0.09434 

14.75067 

-22.00000 

40 

0.96048 

9.73635 

9.35154 

0.10614 

14.03265 

-21.00000 

41 

0.94729 

9.64314 

9.13489 

0.22795 

13.72688 

-20.00000 

42 

0.92858 

9.51687 

8.83722 

0.36219 

13.31668 

-19.00000 

43 

0.88410 

9.21075 

8.14319 

0.40569 

12.28747 

-18 . 00000 

44 

0.86856 

9.10424 

7.90762 

0.58334 

12.00915 

-17.00000 

45 

0.84777 

8.95951 

7.59559 

0.73331 

11.62127 

-16.00000 

46 

0.80170 

8.62583 

6.91531 

0.77048 

10.61088 

-15.00000 

47 

0.78551 

8.52980 

6.70027 

0.94461 

10.40081 

-14.00000 

48 

0.76956 

8.39281 

6.45878 

1.11127 

10.16330 

-13.00000 

49 

0.72772 

8.10573 

5.89866 

1.17294 

9.34854 

-12.00000 

50 

0.70716 

7.93358 

5.61027 

1.28551 

8.99967 

-11.00000 

51 

0.69716 

7.89671 

5.50527 

1.44648 

8.98721 

-10.00000 

52 

0.67841 

7.68775 

5.21543 

1.49895 

8  58524 

-9.00000 

53 

0.66366 

7.64411 

5.07310 

1.52963 

8.38602 

-8.00000 

54 

0.66272 

7.62325 

5.05210 

1.56000 

8.38452 

-7.00000 

55 

0.66338 

7.60589 

5.04558 

1.57740 

8.39363 

-6.00000 

56 

0.66483 

7.59057 

57 

0.66562 

7.59281 

58 

0.66652 

7.62785 

59 

0.66669 

7.68111 

60 

0.66513 

7.73356 

61 

0.65147 

7.83471 

62 

0.65036 

7.81949 

63 

0.65034 

7.80526 

64 

0.65080 

7.79762 

65 

0.65583 

7.78186 

66 

0.68089 

7.69643 

67 

0.92725 

5.31404 

68 

1.41717 

3.68566 

69 

1.74176 

2.89699 

70 

2.03016 

2.58020 

71 

2.17146 

2.38683 

72 

2.20853 

2.34843 

73 

2.25440 

2.31318 

74 

2.25398 

1.05637 

75 

1.15678 

0.86613 

76 

1.00002 

0.99998 

77 

1.00000 

1.00000 

78 

1.00000 

1.00000 

79 

1.00000 

1.00000 

80 

1.00000 

1.00000 

81 

1.00000 

1.00000 

82 

1.00000 

1.00000 

83 

1.00000 

1.00000 

84 

1.00000 

1.00000 

85 

1.00000 

1.00000 

86 

1.00000 

1.00000 

87 

1.00000 

1.00000 

88 

1.00000 

1.00000 

89 

1.00000 

1.00000 

90 

1.00000 

1.00000 

91 

1.00000 

1.00000 

92 

1.00000 

1.00000 

93 

1.00000 

1.00000 

94 

1.00000 

1.00000 

95 

1.00000 

1.C0000 

96 

1.00000 

1.00000 

97 

1.00000 

1.00000 

98 

1.00000 

1.00000 

99 

1.00000 

1.00000 

100 

1.00000 

1.00000 

Conservation  Sums 
100.00002 
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5.04644 

1.57395 

8.39312 

5.05392 

1.56228 

8.39313 

5.08409 

1.55166 

8.42847 

5.12091 

1.54293 

8.47489 

5.14382 

1.51090 

8.47487 

5.10405 

1.54063 

8.42918 

5.08548 

1.54358 

8.40298 

5.07610 

1.54576 

8.39107 

5.07468 

1.54735 

8.39108 

5.10358 

1.53769 

8.43069 

5.24046 

1.48121 

8.60758 

4.92742 

1.63829 

8.63545 

5.22322 

1.48923 

9.40629 

5.04585 

1.54815 

9.65604 

5.23824 

1.57113 

10.36299 

5.18292 

1.56674 

10.43944 

5.18657 

1.55193 

10.43942 

5.21484 

1.52026 

10.42741 

2 .38104 

1.18232 

5.14694 

1.00192 

0.00195 

1.50288 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

1.00000 

0.00000 

1.49999 

618.58447 

45.00003 

959.99567 

-5 . 00000 
-4.00000 
-3.00000 
-2.00000 
-1 . 00000 
0.00000 
1.00000 
2 . 00000 
3.00000 
4.00000 
5.00000 
6 . 00000 
7.00000 
8.00000 
9.00000 
10.00000 
11.00000 
12.00000 
13.00000 
14.00000 
15.00000 
16.00000 
17.00000 
18.00000 
19.00000 
20.00000 
21.00000 
22.00000 
23.00000 
24.00000 
25.00000 
26.00000 
27.00000 
28.00000 
29.00000 
30.00000 
31.00000 
32.00000 
33.00000 
34.00000 
35.00000 
36.00000 
37.00000 
38.00000 
39.00000 
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LCPPCT  Test  # 

3  -  Bursting 

Diaphragm: 

Step  =  200 

NX  =100 

DT  =  0.050 

I 

Density 

Temperature 

Pressure 

Velocity 

Energy 

Interfaces 

1 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-60.00000 

2 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-59.00000 

3 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-58.12500 

4 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-57.12500 

5 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-56.12500 

6 

1.00000 

10.00000 

10.00000 

0.00000 

14.99993 

-55.12500 

7 

1.00000 

10.00000 

10.00000 

0.00000 

14.99992 

-54.12500 

8 

1.00000 

10.00000 

10.00000 

0.00000 

14.99992 

-53.12500 

9 

1.00000 

9.99998 

9.99995 

0.00000 

14.99985 

-52.12500 

10 

1.00000 

9.99998 

9.99996 

0.00003 

14.99986 

-51.12500 

11 

0.99998 

9.99985 

9.99962 

0.00003 

14.99936 

-50.12500 

12 

0.99998 

9.99985 

9 .99962 

0.00022 

14.99936 

-49.12500 

13 

0.99990 

9.99934 

9.99835 

0.00034 

14.99746 

-48.125^0 

14 

0.99971 

9.99804 

9.99512 

0.00065 

14.99261 

-47.12500 

15 

0.99968 

9.99785 

9.99464 

0.00369 

14.99189 

-46.12500 

16 

0.99760 

9.98400 

9.96009 

0.00406 

14.94006 

-45.12500 

17 

0.99689 

9.97919 

9.94812 

0.02219 

14.92234 

-44.12500 

18 

0.98951 

9.92987 

9.82568 

0.03272 

14.73898 

-43.12500 

19 

0.98341 

9.88910 

9.72506 

0.07242 

14.59009 

-42.12500 

20 

0.97335 

9.82158 

9.55989 

0.11805 

14.34654 

-41.12500 

21 

0.95750 

9.71456 

9.30166 

0.15631 

13.96412 

-40.12500 

22 

0.94812 

9.65114 

9.15047 

0.23294 

13.75137 

-39.12500 

23 

0.93204 

9.54183 

8.89338 

0.28739 

13.37850 

-38.125C0 

24 

0.91363 

9.41560 

8.60241 

0.33418 

12.95457 

-37.12500 

25 

0.90596 

9.36289 

8.48237 

0.42965 

12.80711 

-36.12500 

26 

0.88679 

9.23072 

8.18576 

0.47745 

12.37965 

-35.12500 

27 

0.86797 

9.09940 

7.89798 

0.52698 

11.96743 

-34.12500 

28 

0.86217 

9.05890 

7.81035 

0.63439 

11.88896 

-33.12500 

29 

0.84276 

8.92297 

7.51994 

0.67994 

11.47467 

-32.12500 

30 

0.82269 

8.78013 

7.22329 

0.71973 

11.04796 

-31.12500 

31 

0.81802 

8.74870 

7.15666 

0.83227 

11.01824 

-30.12500 

32 

0.80185 

8.63083 

6.92063 

0.89444 

10.70164 

-29.12500 

33 

0.77902 

8.46884 

6.59740 

0.92035 

10.22599 

-28.12500 

34 

0.77111 

8.41151 

6.48617 

1.02204 

10.13195 

-27.12500 

35 

0.76143 

8.34473 

6.35395 

1.11207 

10.00170 

-26.12500 

36 

0.73882 

8.16852 

6.03510 

1.14566 

9.53747 

-25.12500 

37 

0.72447 

8.07598 

5.85077 

1.20772 

9.30446 

-24.12500 

38 

0.71897 

8.02844 

5.77222 

1.31747 

9.28225 

-23.12500 

39 

0.70355 

7.90964 

5.56482 

1.37106 

9.00846 

-22.12500 

40 

0.68684 

7.78385 

5.34622 

1.40380 

8.69604 

-21.12500 

41 

0.68161 

7.75109 

5.28326 

1.46901 

8.66030 

-20.12500 

42 

0.67739 

7.71643 

5.22707 

1.51275 

8.61565 

-19.12500 

43 

0.67053 

7.65705 

5.13427 

1.52826 

8.48440 

-18.12500 

44 

0.66758 

7.64227 

5.10184 

1.53396 

8.43814 

-17.12500 

45 

0.66684 

7.63888 

5.09395 

1.54507 

8.43684 

-16.12500 

46 

0.66625 

7.63422 

5.08632 

1.55192 

8.43176 

-15.12500 

47 

0.66625 

7.63087 

5.08408 

1.55164 

8.42812 

-14.12500 

48 

0.66627 

7.63346 

5.08594 

1.54856 

8.42773 

-13.12500 

49 

0.66628 

7.63585 

5.08764 

1.54607 

8.42774 

-12.12500 

50 

0.66724 

7.64135 

5.09858 

1.54376 

8.44291 

-11.12500 

51 

0.66742 

7.64384 

5.10165 

1.54263 

8.44658 

-10.12500 

52 

0.66742 

7.64411 

5.10183 

1.54237 

8.44658 

-9.12500 

53 

0.66737 

7.64329 

5.10090 

1.54249 

8.44524 

-8.12500 

54 

0.66720 

7.64180 

5.09862 

1.54357 

8.44274 

-7.12500 

55 

0.66707 

7.64217 

5.09789 

1.54417 

8.44211 

-6.12500 
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56 

0.66707 

7.64237 

5.09802 

1.54417 

8.44231 

-5 . 12500 

57 

0.66708 

7.64340 

5.09879 

1.54312 

8.44238 

-4 . 12500 

58 

0.66752 

7.65289 

5.10846 

1.54120 

8.45543 

-3.12500 

59 

0.66868 

7.65532 

5.11893 

1.53476 

8.46588 

-2.12500 

60 

0.66890 

7.65729 

5.12197 

1.53394 

8.46988 

-1.12500 

61 

0.66897 

7.65664 

5.12203 

1.53380 

8.46988 

-0.12500 

62 

0.66897 

7.65388 

5.12018 

1.53648 

8.46987 

0.87500 

63 

0.66833 

7.63431 

5.10222 

1.53785 

8.44358 

1.87500 

64 

0.66651 

7.63895 

5.09142 

1.55425 

8.44213 

2.87500 

65 

0.66625 

7.58955 

5.05655 

1.55738 

8.39276 

3.87500 

66 

0.66370 

7.61252 

5.05244 

1.56335 

8.38968 

4.87500 

67 

0.65725 

7.70666 

5.06517 

1.55243 

8.38971 

5.87500 

68 

0.65723 

7.76724 

5.10488 

1.55149 

8.44830 

6.87500 

69 

0.65542 

7.82882 

5.13116 

1.53026 

8.46410 

7.87500 

70 

0.65385 

7.84153 

5.12715 

1.52963 

8.45562 

8.87500 

71 

0.65385 

7.83928 

5.12568 

1.52963 

8.45341 

9.87500 

72 

0.65474 

7.82925 

5.12613 

1.53018 

8.45568 

10.87500 

73 

0.65613 

7.85534 

5.15414 

1.53019 

8.49933 

11.87500 

74 

0.78982 

6.55305 

5.17573 

1.51305 

8.66764 

12.87500 

75 

1.03607 

4.65581 

4.82377 

1.65827 

8.66014 

13.875 00 

76 

1.54017 

3.45870 

5.32697 

1.46551 

9.64434 

14.87500 

77 

1.77799 

2.80279 

4.98333 

1.54795 

9.60513 

15.87500 

78 

2.03304 

2.49940 

5.08139 

1.52444 

9.98437 

16.87500 

79 

2.17834 

2.35766 

5.13577 

1.55075 

10.32288 

17.87500 

80 

2.28334 

2.25747 

5.15459 

1.55524 

10.49328 

18.87500 

81 

2.34451 

2.18807 

5.12996 

1.54653 

10.49866 

19.87500 

82 

2.38527 

2.14067 

5.10608 

1.54237 

10.49624 

20.87500 

83 

2.41726 

2.10460 

5.08736 

1.54032 

10.49859 

21.87500 

84 

2.43101 

2.09506 

5.09311 

1.53851 

10.51675 

22.87500 

85 

2.43224 

2.09415 

5.09348 

1.53812 

10.51730 

23.87500 

86 

2.43350 

2.09330 

5.09403 

1.53723 

10.51626 

24.87500 

87 

2.43284 

1.76175 

4.28607 

1.39070 

8.78168 

25.87500 

88 

1.13769 

0.98511 

1.12075 

0.08531 

1.68525 

26.87500 

89 

1.00005 

1.00002 

1.00007 

0.00006 

1.50009 

27.87500 

90 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

28.87500 

91 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

29  87500 

92 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

30.87500 

93 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

31.87500 

94 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

32.87500 

95 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

33.87500 

96 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

34.87500 

97 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

35.87500 

98 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

36.87500 

99 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

38.00000 

100 

1.00000 

1.00000 

1.00000 

0.00000 

1.49999 

39.00000 

Conservation  Sums 
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LCPFCT  Test  # 

3  -  Bursting 

Diaphragm: 

Step  =1600 

NX  =100 

DT  =  0.050 

I 

Density 

Temperature 

Pressure 

Velocity 

Energy 

Interfaces 

1 

0.99906 

9.99370 

9.98426 

0 .00002 

14.97631 

-60.00000 

2 

0.99906 

9.99370 

9.98426 

0.00003 

14.97631 

-59.00000 

3 

0.99905 

9.99367 

9.98419 

0.00006 

14.97621 

-58.12500 

4 

0.99900 

9.99332 

9.98330 

0.00029 

14.97488 

-57.12500 

5 

0.99878 

9.99189 

9.97973 

0.00118 

14.96952 

-56.12500 

6 

0.99824 

9.98827 

9.97068 

0.00342 

14.95596 

-55.12500 

7 

0.99679 

9.97859 

9.94652 

0.00937 

14.91974 

-54.12500 

S 

0.99297 

9.95316 

9.88321 

0.02499 

14.82505 

-53.12500 

9 

0.98515 

9.90085 

9  .75378 

0.05718 

14.63221 

-52.12500 

10 

0.97309 

9.82000 

9.55575 

0.10709 

14.33913 

-51.12500 

11 

0.95842 

9.72114 

9.31697 

0.16837 

13.98897 

-50.12500 

12 

0.94323 

9.61813 

9.07207 

0.23254 

13.63353 

-49.12500 

13 

0.92872 

9.51927 

8.84071 

0.29445 

13.30126 

-48.12500 

14 

0.91508 

9.42587 

8.62538 

0.35325 

12.99511 

-47.12500 

15 

0.90196 

9.33563 

8.42033 

0.41035 

12.70638 

-46.12500 

16 

0.88900 

9.24609 

8.21978 

0.46727 

12.42667 

-45.12500 

17 

0.87605 

9.15614 

8.02122 

0.52474 

12.15238 

-44.1250 0 

18 

0.86311 

9.06586 

7.82484 

0.58271 

11.88373 

-43.12500 

19 

0.85026 

8.97572 

7.63169 

0.64088 

11.62208 

-42.12500 

20 

0.83754 

8.88610 

7.44247 

0.69900 

11.36827 

-41.12500 

21 

0.82497 

8.79707 

7.25734 

0.75703 

11.12235 

-40.12500 

22 

0.81254 

8.70859 

7.07610 

0.81501 

10.88396 

-39.12500 

23 

0.80024 

8.62059 

6.89854 

0.87296 

10.65268 

-38.12500 

24 

0.78806 

8.53303 

6.72458 

0.93092 

10.42830 

-37.12500 

25 

0.77602 

8.44599 

6.55425 

0.98883 

10.21072 

-36.12500 

26 

0.76411 

8.35951 

6.38759 

1.04668 

9.99990 

-35.12500 

27 

0.75235 

8.27367 

6.22472 

1.10439 

9.79584 

-34.12500 

28 

0.74076 

8.18860 

6.06578 

1.16189 

9.59863 

-33.12500 

29 

0.72936 

8.10454 

5.91116 

1.21899 

9.40859 

-32.12500 

30 

0.71822 

8.02194 

5.76155 

1.27539 

9.22641 

-31.12500 

31 

0.70743 

7.94155 

5.61813 

1.33057 

9.05338 

-30.12500 

32 

0.69715 

7.86451 

5.48275 

1.38369 

8.89147 

-29.12500 

33 

0.68762 

7.79281 

5.35853 

1.43338 

8.74414 

-28.12500 

34 

0.67931 

7.72987 

5.25095 

1.47715 

8.61751 

-27.12500 

35 

0.67292 

7.68146 

5.16899 

1.51101 

8.52163 

-26.12500 

36 

0.66923 

7.65318 

5.12172 

1.53073 

8.46659 

-25.12500 

37 

0.66810 

7.64466 

5.10738 

1.53670 

8.44987 

-24.12500 

38 

0.66805 

7.64429 

5.10673 

1.53703 

8.44917 

-23.12500 

39 

0.66805 

7.64435 

5.10683 

1.53701 

8.44931 

-22.12500 

40 

0.66805 

7.64437 

5.10685 

1.53701 

8.44934 

-21.12500 

41 

0.66805 

7.64436 

5.10684 

1.53704 

8.44936 

-20.12500 

42 

0.66805 

7.64433 

5.10683 

1.53706 

8.44936 

-19.12500 

43 

0.66804 

7.64422 

5.10664 

1.53715 

8.44915 

-18.12500 

44 

0.66794 

7.64347 

S. 10538 

1.53771 

8.44773 

-17.12500 

45 

0.66783 

7.64261 

5.10395 

1.53833 

8.44609 

-16.12500 

46 

0.66782 

7.64251 

5.10379 

1.53840 

8.44590 

-15.12500 

47 

0.66782 

7.64256 

5.10383 

1.53834 

8.44590 

-14.12500 

48 

0.66798 

7.64378 

5.10588 

1.53762 

8.44842 

-13.12500 

49 

0.66813 

7.64483 

5.10772 

1.53685 

8.45056 

-12.12500 

50 

0.66814 

7.64488 

5.10783 

1.53677 

8.45066 

-11.12500 

51 

0.66811 

7.64466 

5.10749 

1.53685 

8.45021 

-10.12500 

52 

0.66793 

7.64356 

5.10540 

1.53781 

8.44784 

-9.12500 

53 

0.66791 

7.64341 

5.10511 

1.53799 

8.44758 

-8.12500 

54 

0.66791 

7.64350 

5.10519 

1.53799 

8.44768 

-7.12500 

55 

0.66811 

7.64445 

5.10737 

1.53701 

8.45019 

-6.12500 

Ik 
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56 

0.66856 

7.64806 

5.11315 

57 

0.66861 

7.64857 

5.11391 

58 

0.66861 

7.64852 

5.11387 

59 

0.66845 

7.64767 

5.11209 

60 

0.66775 

7.64231 

5.10317 

61 

0.66697 

7.63552 

5.09266 

62 

0.66678 

7.63463 

5.09065 

63 

0.66678 

7.63458 

5.09062 

64 

0.66680 

7.63467 

5.09077 

65 

0.66703 

7 .63669 

5.09391 

66 

0.66769 

7.64179 

5.10233 

67 

0.66857 

7.64834 

5.11342 

68 

0.66913 

7.65279 

5.12070 

69 

0.66932 

7.65369 

5.12280 

70 

0.66935 

7.65379 

5.12304 

71 

0.66935 

7.65373 

5.12300 

72 

0.66924 

7.65305 

5.12169 

73 

0.66890 

7.64983 

5.11700 

74 

0.66838 

7.64725 

5.11129 

75 

0.66738 

7.64728 

5.10365 

76 

0.66728 

7.64508 

5.10144 

77 

0.66728 

7.62649 

5.08904 

78 

0.66843 

7.60479 

5.08329 

79 

0.67474 

7.53155 

5.08187 

80 

1.09444 

4.61876 

5.05496 

81 

2.00489 

2.58898 

5.19062 

82 

2.32824 

2.19679 

5.11465 

83 

2.34057 

2.18357 

5.11081 

84 

2.34058 

2.18359 

5.11085 

85 

2.34057 

2.18359 

5.11084 

86 

2.34057 

2.18358 

5.11084 

87 

2.34131 

2.18284 

5.11070 

88 

2.34447 

2.17930 

5.10929 

89 

2.34484 

2.17887 

5.10910 

90 

2.34498 

2.17824 

5.10793 

91 

2.34752 

2.17635 

5.10903 

92 

2.34828 

2.17718 

5.11263 

93 

2.34827 

2.17718 

5.11261 

94 

2.34412 

2.17607 

5.10096 

95 

1.89018 

1.92088 

3.63081 

96 

1.05977 

1.11000 

1.17635 

97 

1.00002 

1.00002 

1.00004 

98 

1.00000 

1.00000 

1.00000 

99 

1.00000 

1.00000 

1.00000 

100 

1.00000 

1.00000 

1.00000 

Conservation  Sums 

99.96184  585.24878 


1.53465 

8.45696 

-5.12500 

1.53437 

8.45789 

-4.12500 

1.53441 

8.45787 

-3.12500 

1.53507 

8.45568 

-2.12500 

1.53904 

8.44555 

-1.12500 

1.54296 

8.43289 

-0.12500 

1.54424 

8.43097 

0.87500 

1.54438 

8.43107 

1.87500 

1.54435 

8.43128 

2.87500 

1.54308 

8.43496 

3.87500 

1.53938 

8.44457 

4.87500 

1.53482 

8.45755 

5.87500 

1.53144 

8.46567 

6.87500 

1.53080 

8.46839 

7.87500 

1.53082 

8.46879 

8.87500 

1.53088 

8.46879 

9.87500 

1.53149 

8.46733 

10.87500 

1.53349 

8.46196 

11.87500 

1.53616 

8.45551 

12.87500 

1.53833 

8.44510 

13.87500 

1.54187 

8.44531 

14.87500 

1.54161 

8.42644 

15.87500 

1.54862 

8.42643 

16.87500 

1.54372 

8.42675 

17.87500 

1.55191 

8.90033 

18.87500 

1.52310 

10.11138 

19.87500 

1.53662 

10.42066 

20.87500 

1.53809 

10.43474 

21.87500 

1.53811 

10.43488 

22.87500 

1.53810 

10.43485 

23.87500 

1.53812 

10.43491 

24.87500 

1.53860 

10.43731 

25.87500 

1.53847 

10.43843 

26.87500 

1.53834 

10.43814 

27.87500 

1.53878 

10.43814 

28.87500 

1.53940 

10.44501 

29.87500 

1.53984 

10.45292 

30.87500 

1.53983 

10.45286 

31.87500 

1.53640 

10.41807 

32.87500 

1.15993 

6.71776 

33.87500 

0.11801 

1.77189 

34.87500 

0.00003 

1.50006 

35.87500 

0.00000 

1.49999 

36.87500 

0.00000 

1.49999 

38.00000 

0.00000 

1.49999 

39.00000 

116.32616 

962.41534 

o  u  u  u  u 
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Program  FAST2D 


c - 

c 

c  BURSTING  DIAPHRAGM  'MUZZLE  FLASH*  -  LCPFCT  TEST  #  4  August  1992 

c 

c  The  problem  begins  with  1000:1  pressure  and  100:1  density  ratios 
c  across  a  diaphragm  inside  a  solid  cylindrical  barrel.  The  ideal  wall 
c  of  the  barrel  is  10  cells  thick  (1.0  cm)  with  its  inner  radius  given 
c  as  1.5  cm  and  its  outer  radius  of  2.5  cm.  The  run  starts  at  time 
c  t  =  0.0  when  the  diaphragm  at  interface  J  =  11  (inside  the  barrel)  is 
c  ruptured.  The  flow  then  expands  upward  in  a  ID  manner,  spilling  out 
c  of  the  barrel  in  a  2D  flow  which  eventually  reaches  the  boundaries  at 
c  R  =  4.0  cm  and  Z  =  4.0  cm  where  a  very  simple  extrapolative  outflow 
c  condition  is  expressed  through  the  LCPFCT  boundary  conditions  values, 
c  The  outflow  condition  used  here  includes  a  slow  relaxation  to  ambient 
c  conditions  far  from  the  origin - 


Implicit  NONE 


Integer 

NPT,  I, 

J,  IJ 

Parameter 

(  NPT  = 

202  ) 

Integer 

NR,  NRP, 

MR,  IALFR, 

BC_AXIS,  BC 

_WALL,  BC_OUTF 

Integer 

NZ,  NZP, 

MZ,  IALFZ, 

LOUT,  MAXSTP,  I PRINT 

Integer 

ICIN,  ICOUT,  JCTOP, 

JSTEP,  ISTEP 

Real 

DR, 

DZ, 

DT, 

TIME 

Real 

COURANT, 

DTNEW, 

VTYPICAL, 

RELAX 

Real 

DTMAX, 

VZMAX, 

R(NPT)  , 

Z  (NPT) 

Real 

RHO(40, 40) ,  RVR(40, 

40),  RVZ(40, 40) , 

ERG (40,40) 

Real 

RHO_IN, 

PRE_IN, 

VEL_IN, 

GAMMA0 

Real 

RHOAMB, 

PREAMB, 

VELAMB, 

GAMMAM 

Real 

RHON(NPT),  RVRN(NPT) ,  RVTN(NPT) , 

ERGN(NPT) 

Common 

/  ARRAYS 

!  /  RHON, 

RVRN,  RVTN, 

ERGN,  RELAX, 

RHO_IN, 

PRE_IN,  VEL_IN, 

GAMMA0, 

&  RHOAMB,  PREAMB,  VELAMB,  GAMMAM 


1000  Format 
1 
2 

1005  Format 
& 

1010  Format 
1 

2 

3 

1011  Format 


( '  1 ' ,  /,  '  LCPFCT  Test  #  4  -  FAST2D  Barrel  Explosion:', 
'  Step  =',  14,  /,  5X,  13,  'x',  13  '  Uniform  Grid.', 

'  Time= ' ,  1PE12.4,  '  and  DT  =’,  E12.4  ) 

('  After  step  ',  15,  '  TIME  =  1PE12.4, 

'  and  timestep  DT  =  ' ,  E12.4  ) 

(IX,  /,  '  Fluid  variables  on  selected  lines  ', 

/,  '  I,  J',  '  RHO  axis  VZ  PRE  ', 

'  RHO  top  VR  PRE  ', 

'  RHO  wall  VZ  PRE  '  ,  /  ) 

(  13,  IX,  3 (IX,  F8.2,  F8.2,  F8.2)  ) 


The  2D  barrel  explosion  program  control  parameters  are  specified. 
(Change  here  to  run  other  cases)  .  .  . 


NR 

3S 

40 

IALFR 

= 

2 

DR 

= 

0.1 

NZ 

= 

40 

IALFZ 

= 

1 

Number  of  cells  in  the  first  (radial  R)  direction 
Sets  cylindrical  coordinates  in  the  R  direction 
Cell  size  (e.g.,  cm)  in  the  radial  direction 
Number  of  cells  in  the  second  (axial  Z)  direction 
Sets  Cartesian  coordinates  in  the  Z  direction 


nnon  non  on  on 


DZ 

=  0.1 

LOUT 

=  11 

BC_AXIS 

=  1 

BC_0UTF 

=  2 

BC_WALL 

=  1 

MAXSTP 

=  401 

IPRINT 

=  25 

COURANT 

=  0.4 

DTMAX  = 

2.0E-7 

DT  = 

1.0E-9 
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!  Cell  size  ( e.g . ,  cm)  in  the  axial  direction 
!  Logical  unit  number  of  printed  output  device 
!  Cylindrical  axis  set  as  an  impermeable  wall 
!  Outer  boundaries  set  as  extrapolative  outflow 
!  Walls  of  the  barrel  set  as  an  ideal  solid  wall 
!  Maximum  number  of  timesteps  of  length  DT 
!  Initial  frequency  of  validation  printout  results 
!  Approximate  maximum  Cournat  number  allowed 
!  Maximum  timestep  allowed  in  the  computation 
!  Initial  (small  guess)  for  starting  timestep 


c  Initialize  the  test  problem  geometry,  a  cylindrical  shell  JCTOP  cells 
c  high  in  Z  (indexed  by  J)  which  extends  from  the  left  of  cell  ICIN  to 
the  right  of  cell  ICOUT  in  X  (indexed  by  I) . 


ICIN 

ICOUT 

JCTOP 

GAMMAO 

RHOAMB 

PREAMB 

VELAMB 

RHO_IN 

PRE_IN 

VEL_IN 

RELAX  = 

GAMMAM 


=  16  i  Number  of  the  innermost  radial  cell  in  the  barrel 

=  25  !  Number  of  the  outermost  radial  cell  in  the  barrel 

=  20  !  Number  of  the  uppermost  axial  cell  in  the  barrel 

:  1.4  !  Gas  constant 


Initialization  and  relaxation  BCN  =  2 
Initialization  and  relaxation  BCN  =  2 
Initialization  and  relaxation  BCN  =  2 
Initialization  and  relaxation  BCl  =  2 
Initialization  and  relaxation  BCl  =  2 
Initialization  and  relaxation  BCl  =  2 
0.002  !  Relaxation  rate,  used  when  BCl  or  BCN  =  2 
GAMMAO  -  1.0 


0.00129 

1.013E+6 

0.0 

100.0  * RHOAMB 
1000 . 0* PREAMB 
0.0 


Determine  the  cell  interface  locations,  here  a  uniform  grid 


NRP  =  NR  +  1 
NZP  =  NZ  +  1 
Do  100  1=1,  NRP 
100  R(I)  =  DR*FLOAT ( I - 1 ) 

Do  110  J  =  1,  NZP 
110  Z(J)  =  DZ*FLOAT( J-l) 

Fill  the  arrays  with  air  at  STP  and  behind  the  diaphragm  increase  the 
density  by  100  to  1  and  the  pressure  by  1000  to  1  .  .  . 


Do  200  J  =  1,  NZ 
Do  200  I  =  1,  NR 

RHO ( I , J )  =  RHOAMB 
RVR ( I , J )  =0.0 
RVZ ( I , J )  =  0.0 

200  ERG ( I , J )  =  PREAMB/GAMMAM 

Do  210  J  =  1,  JCTOP/ 2 
Do  210  I  =  1,  ICIN  -  1 

ERG ( I , J )  =  PRE_IN/ GAMMAM 
210  RHO ( I , J )  =  RHO_IN 

Mark  the  unused  cells  inside  the  cylindrical  'barrel'  so  they  will 
show  up  distinctly  compared  to  ambient  values  in  the  plots.  This 
has  no  effect  as  the  simulation  does  not  access  these  values  .  .  . 


Do  220  J  =  1,  JCTOP 
Do  220  I  =  ICIN,  ICOUT 

ERG ( I , J )  =  20 . 0*ERG ( I , J) 
RHO ( I , J )  =  20 . 0*RHO ( I, J) 


220 
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c  Begin  loop  over  the  timesteps  .  .  . 

C - 

TIME  =0.0 

Do  9999  ISTEP  =  1,  MAXSTP 

c  Compute  the  next  timestep  based  on  a  'Courant'  number  COURANT  .  .  . 

c - 

VZMAX  =0.0 
Do  240  J  =  1,  NZ 
Do  240  I  =  1,  NR 

VTYPICAL  =  ERG ( I , J ) /RHO ( I ,  J ) 

240  VZMAX  =  AMAX1  (  VTYPICAL,  VZMAX  ) 

VZMAX  =  SQRT  (  VZMAX  ) 

DTNEW  =  C0URANT*AMIN1 (DR, DZ) /VZMAX 
DT  =  AMIN1  (  DIMAX,  1.25*DT,  DTNEW  ) 


c 

c- 


The  results  are  printed  when  required 


JSTEP  =  ISTEP  -  1 

If  (  MOD (JSTEP, 5)  .eq.  0  )  Write  (  6,  1005  )  JSTEP,  TIME,  DT 
If  (  MOD (JSTEP, I PRINT)  .eq.  0  )  Then 

Write  (  LOUT,  1000  )  ISTEP,  NR,  NZ,  TIME,  DT 
If  (  ISTEP  .ge.  4*IPRINT  )  IPRINT  =  2*IPRINT 
Write  (  LOUT,  1010  ) 

Do  230  IJ  =  1,  40 

DIN ( 1 )  =  RHO(l, IJ) /RHOAMB 

DIN (2)  =  0 . 01*RVZ ( 1 , I J) /RHO ( 1 , I J ) 

DIN ( 3 )  =  (GAMMAM/PREAMB) * (ERG(1, IJ)  -  0.5* 

(RVR ( 1 , IJ) **2  +  RVZ ( 1 , IJ) **2 ) /RHO ( 1 , IJ) ) 
DIN(4)  =  RHO (IJ, 40) /RHOAMB 
DIN ( 5 )  =  0 . 01*RVR(IJ, 40 ) /RHO ( IJ, 40 ) 

DIN(6)  =  (GAMMAM/PREAMB) *(ERG(IJ, 40)  -  0.5* 

(RVR(IJ, 40) **2  +  RVZ (IJ, 40) * *2) /RHO ( IJ, 40 ) ) 
DIN (7)  =  RHO (40, I J) /RHOAMB 
DIN ( 8 )  =  0 . 01*RVZ (40 , IJ) /RHO (40, IJ) 

DIN(9)  =  (GAMMAM/PREAMB) * (ERG (40, IJ)  -  0.5* 

(RVR(40, IJ) **2  +  RVZ (40, IJ) **2) /RHO (40, IJ) ) 
Write  (  LOUT,  1011  )  IJ,  (  DIN(I) ,  I  =  1,  9  ) 


230 


Write  (  LOUT,  1011  ) 


c  Integrate  the  fluid  equations  in  the  radial  direction  (indexed  by  I) . 
c  The  outer  boundary  condition  at  interface  I  =  NR+1  is  an  extra- 
c  polation  from  the  interior  cell  values  with  a  slow  relaxation  to 
c  the  known  distant  ambient  conditions  .  .  . 

c - 

Call  RESIDIFF  (  0.999  ) 

Call  MAKEGRID  (  R,  R,  1,  NRP,  IALFR  ) 

Do  300  J  =  1,  NZ 


c 

c 

C 


Pick  up  the  data  from  the  2D  arrays  in  the  radial  direction, 
the  temporary,  compact  ID  arrays  for  GASDYN  .  .  . 


Do  400  I  =  1,  NR 

RHON(I)  =  RH0(I, J) 
RVRN(I)  =  RVR ( I , J ) 
RVTN(I)  =  RVZ(I.J) 
400  ERGN(I)  =  ERG ( I , J ) 


setting 


c  Integrate  along  the  radials  inside  and  outside  the  cylinder 


noon  non  oooooo  on  on 
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If  {  J  .le.  JCTOP  )  Then 

Call  GASDYN  (  1,  ICIN-1,  BC_AXIS,  BC_WALL,  DT  } 
Call  GASDYN  {  ICOUT+1,  NR,  BC_WALL ,  BC_OUTF,  DT) 


c  Integrate  along  the  radials  (indexing  in  I)  above  the  cylinder 
which  reach  from  the  axis  to  the  outer  boundary  .  . . 


Else 

Call  GASDYN  (  1,  NR,  BC_AXIS,  BC_OUTF,  DT  ) 

End  If 

Put  the  data  back  into  the  2D  arrays  in  the  radial  direction  .  .  . 


Do  500  I  =  1,  NR 

RHO ( I , J )  =  RHON(I) 

RVR ( I , J )  =  RVRN(I) 

RV2 ( I , J )  =  RVTN(I) 

500  ERG(I,J)  =  ERGN(I) 

300  Continue  !  End  loop  integrating  the  NZ  rows. 

Integrate  along  the  axials  (indexing  in  J)  which  reach  from  the 
lower  active  J  cell  (1  or  JCTOP+1)  to  the  upper  boundary.  The 
upper  boundary  condition  at  interface  J  =  NZ+1  (BCN  =  2  )  is  an 
extrapolation  from  the  interior  cell  values  with  a  slow  relaxation 
to  the  known  distant  ambient  conditions  .  .  . 


Call  MAKEGRID  (  Z,  Z.  1,  NZP,  IALFZ  ) 

Do  600  I  =  1,  NR 

Pick  up  the  data  from  the  2D  arrays  in  the  axial  direction,  setting 
the  temporary,  compact  ID  arrays  for  GASDYN  .  .  . 


Do  700  J  =  1,  NZ 

RHON(J)  =  RHO ( I , J ) 

RVTN(J)  =  RVR ( I , J ) 

RVRN(J)  =  RVZ ( I , J ) 

700  ERGN(J)  =  ERG ( I , J ) 

Integrate  along  the  axials  either  from  the  lower  solid  boundary  at 
interface  J  =  1  or  from  the  top  of  the  barrel  at  J  =  21  for  cells 
with  I  =  ICIN  to  ICOUT  .  .  . 


If  (  I.ge.ICIN  .and.  I. le. ICOUT  )  Then 

Call  GASDYN  (  JCTOP+1,  NZ,  BC_WALL ,  BC_OUTF,  DT) 

Else 

Call  GASDYN  (  1,  NZ,  BC_WALL ,  BC_OUTF,  DT  ) 

End  If 

c  Put  the  data  back  into  the  2D  arrays  in  the  axial  direction  .  .  . 

c - 

Do  800  J  s  1,  NZ 

RHO ( I , J )  =  RHON(J) 

RVR ( I , J )  =  RVTN(J) 

RVZ ( I , J )  =  RVRN(J) 

800  ERG ( I , J )  =  ERGN(J) 

600  Continue  !  End  loop  integrating  the  NR  columns. 

TIME  =  TIME  +  DT 


9999  Continue 


!  End  of  the  timestep  loop. 
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6  m 

LCPFCT  Test  # 

4  -  FAST2D  Barrel  Explosion:  Step  =  1 

40  x  40  Uniform 

Grid.  Time 

=  0 . OOOOE+OO  and  DT  = 

1.2500E 

-09 

Fluid 

variables 

on  selected  lines 

I,  J 

RHO  axis  VZ 

PRE 

RHO  top 

VR  PRE 

RHO  wall  VZ 

PRE 

1 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

2 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

3 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

4 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

5 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

6 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

7 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

8 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

9 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

10 

100.00 

0.00 

1000.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

11 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

12 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

13 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

14 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

15 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

16 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

17 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

18 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

19 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

20 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

21 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

22 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

23 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

24 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

25 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

26 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

27 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

28 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

29 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

30 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

31 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1. ' 

32 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.1 

33 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1 .00 

34 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

35 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

36 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

37 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

38 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

39 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 

40 

1.00 

0.00 

1.00 

1.00 

0.00  1.00 

1.00 

0.00 

1.00 
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LCPFCT  Test  #  4  -  FAST2D  Barrel  Explosion:  Step  =  151 

40  x  40  Uniform  Grid.  Time=  2.5060E-05  and  DT  =  2.0000E-07 


Fluid  variables  on  selected  lines 

I,  J  RHO  axis  VZ  PRE  RHO  top  VR  PRE  RHO  wall  VZ  PRE 


1 

25.19 

30.06 

146.86 

12.01 

0.01 

53.98 

1.00 

0.00 

1.00 

2 

25.28 

71.50 

147.34 

11.99 

0.05 

53.87 

1.00 

0.00 

1.00 

3 

25.37 

119.77 

147.30 

11.97 

7.40 

53.76 

1.00 

0.00 

1.00 

4 

25.38 

165.83 

147.59 

11.63 

10.37 

51.75 

1.00 

0.00 

1.00 

5 

25.36 

213.07 

146.95 

11.41 

43.71 

50.52 

1.00 

0.00 

1.00 

6 

25.22 

264.63 

146.30 

10.56 

63.09 

45.72 

1.00 

0.00 

1.00 

7 

25.13 

311.24 

144.66 

9.95 

114.77 

41.94 

1.00 

0.00 

1.00 

8 

25.10 

362.53 

144.01 

9.36 

164.56 

38.70 

1.00 

0.00 

1.00 

9 

25.16 

420.76 

144.98 

8.38 

196.37 

32.85 

1.00 

0.00 

1.00 

10 

25.17 

467.50 

143.35 

7.94 

258.82 

30.28 

1.00 

0.00 

1.00 

11 

24.95 

512.41 

140.63 

6.95 

307.26 

25.98 

1.00 

0.00 

1.00 

12 

24.80 

566.81 

138.89 

6.55 

359.17 

22.79 

1.00 

0.00 

1.00 

13 

24.57 

620.80 

138.12 

5.80 

410.66 

19.67 

1.00 

0.00 

1.00 

14 

24.09 

672.04 

136.21 

5.28 

459.34 

17.19 

1.00 

0.00 

1.00 

15 

23.67 

723.80 

134.31 

4.79 

513.13 

15.18 

1.00 

0.00 

1.00 

16 

23.32 

773.53 

132.10 

4.13 

597.67 

12.89 

1.00 

0.00 

1.00 

17 

22.94 

820.67 

129.48 

3.57 

691.17 

9.44 

1.00 

0.00 

1.00 

18 

22.60 

869.17 

127.29 

2.89 

747.93 

6.87 

1.00 

0.00 

1.00 

19 

22.30 

918.10 

125.13 

2.40 

818.20 

6.47 

1.00 

0.00 

1.00 

20 

22.14 

968.59 

123.10 

2.14 

918.84 

5.24 

1.00 

0.00 

1.00 

21 

22.05 

1019.32 

121.19 

1.77 

992.51 

3.48 

1.00 

0.00 

1.00 

22 

21.82 

1068.43 

118.99 

1.39 

1033.27 

3.07 

1.00 

0.00 

1.00 

23 

21.54 

1117.82 

116.80 

1.18 

1171.59 

2.68 

1.00 

0.00 

1.00 

24 

21.13 

1165.29 

114.09 

0.86 

1285.47 

1.71 

1.00 

0.00 

1.00 

25 

20.63 

1213.81 

111.28 

0.75 

1279.33 

1.46 

1.00 

0.00 

1.00 

26 

20.21 

1262.16 

108.56 

0.75 

1279.10 

1.27 

1.00 

0.00 

1.00 

27 

19.73 

1307.89 

105.37 

1.16 

990.03 

3.36 

1.00 

0.00 

1.00 

28 

19.18 

1355.07 

101.86 

1.72 

772.98 

5.96 

1.00 

0.00 

1.00 

29 

18.66 

1398.05 

98.70 

1.78 

748.22 

5.97 

1.00 

0.00 

1.00 

30 

18.08 

1443.14 

95.42 

1.93 

717.76 

8.02 

1.00 

0.00 

1.00 

31 

17.48 

1489.85 

89.78 

2.41 

767.94 

8.42 

1.00 

0.00 

1.00 

32 

16.95 

1532.89 

86.12 

2.73 

722.70 

9.10 

1.00 

0.00 

1.00 

33 

16.54 

1573.44 

83.37 

2.77 

711.28 

9.21 

1.00 

0.00 

1.00 

34 

16.15 

1614.41 

80.25 

2.77 

594.68 

4.72 

1.00 

0.00 

1.00 

35 

15.71 

1659.32 

73.69 

1.11 

0.55 

1.00 

1.00 

0.00 

1.00 

36 

14.75 

1689.00 

65.28 

1.00 

0.00 

1.00 

1.00 

0.00 

1.00 

37 

13.73 

1699.93 

63.11 

1.00 

0.00 

1.00 

1.00 

0.00 

1.00 

38 

13.44 

1724.09 

61.23 

1.00 

0.00 

1.00 

1.00 

0.00 

1.00 

39 

12.58 

1785.64 

56.42 

1.00 

0.00 

1.00 

1.00 

0.00 

1.00 

40 

12.01 

1800.57 

53.98 

1.00 

0.00 

1.00 

1.00 

0.00 

1.00 
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LCPFCT  Test  #  4  -  FAST2D  Barrel  Explosion:  Step  =  401 

40  x  40  Uniform  Grid.  Time=  7.5061E-05  and  DT  =  2.0000E-07 

Fluid  variables  on  selected  lines 


I,  J 

RHO  axis  VZ 

PRE 

RHO 

top  VR 

PRE 

RHO  wall  VZ 

1 

6.72 

10.05 

23.15 

2.15 

2.07 

4.60 

1.03 

1.65 

2 

6.72 

22.34 

23.15 

2.14 

40.89 

4.56 

1.05 

-18.54 

3 

6.72 

40.14 

23.11 

2.12 

61.83 

4.51 

1.24 

-67.51 

4 

6.71 

55.56 

23.03 

2.09 

97.61 

4.42 

1.39 

-101.13 

5 

6.68 

74.31 

22.91 

2.05 

114.92 

4.^5 

1.42 

-116.58 

6 

6.65 

89.89 

22.71 

2.03 

153.71 

4.20 

1.42 

-116.48 

7 

6.62 

109.83 

22.61 

1.96 

171.32 

4.14 

1.42 

-119.79 

8 

6.59 

126.22 

22.38 

1.93 

212.53 

3.91 

1.43 

-125.49 

9 

6.54 

145.82 

22.19 

1.86 

234.78 

3.82 

1.43 

-129.39 

10 

6.49 

163.81 

21.95 

1.79 

276.14 

3.58 

1.43 

-132.93 

11 

6.47 

182.94 

21.74 

1.76 

301.24 

3.47 

1.42 

-135.16 

12 

6.38 

201.53 

21.45 

1.67 

339.29 

3.21 

1.40 

-136.63 

13 

6.35 

222.71 

21.16 

1.60 

372.58 

3.09 

1.38 

-137.84 

14 

6.27 

243.62 

20.82 

1.51 

409.39 

2.85 

1.33 

-129.86 

15 

6.18 

265.35 

20.44 

1.47 

445.40 

2.70 

1.26 

-115.50 

16 

6.08 

287.07 

19.99 

1.39 

475.57 

2.50 

1.22 

-104.31 

17 

6.00 

311.29 

19.52 

1.26 

521.74 

2.20 

1.17 

-99.07 

18 

5.86 

335.88 

18.95 

1.17 

564.21 

1.99 

1.13 

-80.96 

19 

5.73 

359.63 

18.34 

1.08 

605.87 

1.82 

1.08 

-68.17 

20 

5.59 

385.76 

17.67 

1.01 

640.98 

1.67 

1.06 

-52.48 

21 

5.45 

410.44 

16.96 

0.95 

681.85 

1.50 

1.01 

-42.61 

22 

5.27 

438.62 

16.22 

0.87 

718.96 

1.32 

0.98 

-30.70 

23 

5.06 

466.03 

15.43 

0.80 

757.25 

1.17 

0.96 

-26.03 

24 

4.88 

496.84 

14.61 

0.72 

788.50 

1.03 

0.92 

-25.38 

25 

4.67 

525.27 

13.70 

.  66 

827.84 

0.91 

0.91 

-16.09 

26 

4.50 

552.10 

12.99 

0.60 

862.24 

0.79 

0.83 

-14.48 

27 

4.39 

568.08 

12.58 

0.54 

901.06 

0.70 

0.80 

5.39 

28 

4.18 

596.19 

11.80 

0.49 

932.66 

0.60 

0.71 

14.25 

29 

3.94 

630.70 

10.85 

0.44 

966.35 

0.54 

0.65 

49.67 

30 

3.74 

661.86 

10.05 

0.40 

1004.08 

0.46 

0.46 

76.73 

31 

3.51 

691.25 

9.21 

0.35 

1024.00 

0.41 

0.34 

131.56 

32 

3.31 

718.83 

8.47 

0.31 

1072.45 

0.33 

0.33 

177.88 

33 

3.13 

744.96 

7.83 

0.30 

1086.04 

0.34 

0.30 

193.65 

34 

2.95 

767.44 

7.25 

0.27 

1082.46 

0.30 

0.30 

377.07 

35 

2.79 

787.09 

6.68 

0.21 

1116.14 

0.20 

0.32 

521.96 

36 

2.67 

808.08 

6.27 

0.17 

1211.24 

0.1/ 

0.35 

37 

2.53 

831.78 

5.79 

0.17 

1239.07 

0.15 

0.37 

669.38 

38 

2.43 

844.10 

5.46 

0.18 

1437.65 

0.02 

0.37 

703.18 

39 

2.20 

886.99 

4.74 

0.34 

922.97 

0.48 

0.36 

722.78 

40 

2.15 

889.43 

4.60 

0.36 

880.79 

0.54 

0.36 

736.23 

